Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: FRANKI am 09.01.04 - 13:06:02
-
Hallo mal wieder,
ich möchte am Ende eines Scripts (Lotus Script) automatisch eine Mail versenden.
Wie macht man das?
Hat jemand ein Beispiel??
DankeFRANKI
-
NotesDocument.Send, Beispiel und Einzelheiten in der DesignerHilfe
-
Wenn es das Feld SendTo (=Adresse) im Dokument gibt:
call doc.Send(false)
wenn nicht
call doc.Send(False,"Adresse des Empfängers")
doc ist ein Backenddokument, welches folgende Felder haben sollte
- Subject (Betreffzeile)
- Body (Inhalt)
Das "False" besagt, dass die Maske nicht im Mail gespeichert werden soll.
Andreas
-
... ungefähr so:
Const mailempfaenger1 = "CN=.../O=.../C=..."
Const mailempfaenger2 = "CN=.../O=.../C=..."
Dim docMail As NotesDocument
Dim rtitem As NotesRichTextitem
Dim item As NotesItem
Set item = doc.GetFirstItem( "Rubrik" )
If item.Contains( "Newsbox" ) And doc.redakteur_intranet(0) "ja" Then
Set docMail = db.createDocument
docMail.form = ".MEMO"
docMail.subject = "Neuer Newsletter " + doc.notiz(0)
docMail.SendTo = mailempfaenger1
docMail.CopyTo = mailempfaenger2
Set rtitem = New NotesRichTextItem (docMail, "Body")
Call rtitem.AppendDocLink(doc, "link zum Dokument")
Call docMail.send(True)
End If
-
Danke an alle
FRANKI
-
Mir ist noch generell zum Thema Mail in LotusScript was eingefallen. Es gibt eine Konstellation, in dem das nicht funktioniert: Wenn nämlich User in Ihrem persönlichen Adreßbuch gleiche Personen wie im öffentlichen NAB haben, dann gibt es einen internen Fehler "Mehrere Personen gefunden..." und das Mail wird nicht gesendet. Man bekommt es aber i.d.R. nicht mit.
Lösung: Nicht nur den Empfängernamen, sondern auch die Domäne verwenden. Dann wird das lokale NAB nicht berücksichtigt und die Adreßauflösung erfolgt vom Server.
Andreas