Autor Thema: Mail per Agent verschicken  (Gelesen 1473 mal)

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Mail per Agent verschicken
« 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! ???


Offline Wilhelm

  • Aktives Mitglied
  • ***
  • Beiträge: 214
  • Geschlecht: Männlich
Re: Mail per Agent verschicken
« Antwort #1 am: 24.08.05 - 11:14:26 »
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.
Ich will endlich die F9-Taste in diesem Forum haben!!!

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Re: Mail per Agent verschicken
« Antwort #2 am: 24.08.05 - 12:22:59 »
Hallo Willi,

wenn Du einen Code parat hast, nehme ich den gerne  :)

Vielen Dank!

Offline Wilhelm

  • Aktives Mitglied
  • ***
  • Beiträge: 214
  • Geschlecht: Männlich
Re: Mail per Agent verschicken
« Antwort #3 am: 24.08.05 - 12:33:03 »
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 will endlich die F9-Taste in diesem Forum haben!!!

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Re: Mail per Agent verschicken
« Antwort #4 am: 24.08.05 - 13:52:05 »
Ich musste an ein oder zwei Stellen was umbauen, aber ansonsten klappt es hervorragend  :D

Ich danke Dir!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz