Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Wiesel am 24.08.05 - 10:37:52
-
Hallo!
Ich habe diese Frage zwar bereits in einem anderen Forum gestellt, bekomme dort aber leider wenig Antworten. Vielleicht kann mir jemand von Euch ja weiterhelfen... :'(
Wie kriege ich es per Agent hin, periodisch eine Erinnerungsmail an eine bestimmte Person, die im Profildokument festgelegt ist, zu schicken?
Im Moment bekommt diese Person zig Mails, da der Agent auf "Alle Dokumente in der Datenbank" eingestellt ist.
Im Agent habe ich folgendes stehen:
_Mail := @GetProfileField("(DBProfile)";"dbKontrolleur");
@MailSend(_Mail;"";"";"Erinnerung";"";"Bitte erinnern Sie sich!");SELECT @All
Ich möchte aber monatlich nur eine Mail an die Person verschicken.
Danke für Antworten! ???
-
Hi Wiesel,
schreib den Code in LotusScript, dann wird das Mail nur einmal verschickt.
Grüße
Willi
P.S.: Wenn Du Code brauchst, bitte posten.
-
Hallo Willi,
wenn Du einen Code parat hast, nehme ich den gerne :)
Vielen Dank!
-
Kein Problem:
Dim session As NotesSession
Dim db As NotesDatabase
Dim docMemo As NotesDocument
Dim docProfile As NotesDocument
Dim item As NotesItem
Dim rtBody As NotesRichTextItem
Set session = New NotesSession
Set db = session.CurrentDatabase
Set docProfile = db.GetProfileDocument("(DbProfile)")
Set docMemo = db.CreateDocument
docMemo.Form = "Memo"
docMemo.Subject = "Bitte erinnern Sie sich!"
Set rtBody = docMemo.CreateRichTextItem("Body")
Call rtBody.AppendText("Bitte erinnern Sie sich")
Set item = docProfile.GetfirstItem("dbKontrolleur")
Call item.CopyItemToDocument(docMemo, "SendTo")
Call docMemo.Send(False)
Hab gerade kein ND5 Enviroment da, sollte aber so funktionieren.
Grüße
Willi
-
Ich musste an ein oder zwei Stellen was umbauen, aber ansonsten klappt es hervorragend :D
Ich danke Dir!