Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: tschavo am 16.02.06 - 09:55:23

Titel: mail regel per script erstellen
Beitrag von: tschavo am 16.02.06 - 09:55:23

Hallo bin neu hier im Forum. Erstmal hallo an alle!!!!

Nun zu meinem Problem:
Bei uns in der Firma haben wir einen SPAM-Filter der allen SPAM-Mail "SPAM DETECTED" zum Betreff hinzufügt. Diese Mails sollten bei jedem Nutzer in einen extra Ordner Names "Spam" verschoben werden. Mit hilfe einer Regel ist dies auch kein Problem. Allerdings muss dies jeder Benutzer selber einrichten.
Da wir eine Datenbank Namens "Benutzerhinweise" haben, würde ich gerne dort in einem Hinweis eine Verknüpfung/Button oder etwas ähnliches einfügen, die per Klick die gewünschte Regel und den Ordner "Spam" beim Benutzer erstellt.

Ist dies möglich und wenn ja wie?
Besten Dank in voraus!!!

Titel: Re: mail regel per script erstellen
Beitrag von: koehlerbv am 16.02.06 - 22:58:19

On the fly wird es schwer fallen, eine Mailregel zu erstellen, da der Algorithmus hinter der Regel als Tokens gespeichert wird.
Denkbar wäre eine Lösung: Eine Regel erstellen, und ausgehend von diesem Dokument diese (unter Anpassung der entsprechenden Items wie die lfd. Nummer) in die Mail-Files der User werfen, entsprechend angepasst dann auch die entsprechenden Einträge im ProfileDoc des Mailfiles erzeugen.
In irgendeiner Form trivial ist dies in keinem Fall.

Frage an die Admin-Profis: Könnte man unter R6 eine Regel per Policy verteilen?

Bernhard

Titel: Re: mail regel per script erstellen
Beitrag von: diali am 17.02.06 - 06:23:57

so ähnlich machen wir es.

- auf dem Server liegt eine Mail-DB mit Regeln
- ein Mail mit einer Schaltfläche kopiert die Regel in die DBs der User
- der User muss nur noch die Regel aktivieren

Aus rechtlichen Gründen und wegen dem Datenschutz dürfen wir die Regeln nicht automatisch aktivieren.

Code

Sub Click(Source As Button)
	Dim session As New notessession
	Dim db As notesdatabase
	Dim localdb As notesdatabase
	Dim doc As notesdocument
	Dim newdoc As NotesDocument
	Dim view As notesview
	
	Set db = New NotesDatabase("Server", "Regeln.nsf")
	Set localdb = session.CurrentDatabase
	Set view = db.GetView("Rules")
	Set doc = view.GetDocumentByKey("SPAM")
	Set newdoc = doc.CopyToDatabase(localdb)
	newdoc.PutInFolder("(Rules)")
	Messagebox("Die Regel ist eingefügt und muss noch unter Werkzeuge / Regeln aktiviert werden")
	
End Sub