Mail per Agent verschicken

[Wiesel]

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!

[Wilhelm]

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.

[Wiesel]

Hallo Willi,

wenn Du einen Code parat hast, nehme ich den gerne 

Vielen Dank!

[Wilhelm]

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

[Wiesel]

Ich musste an ein oder zwei Stellen was umbauen, aber ansonsten klappt es hervorragend 

Ich danke Dir!