Domino 9 und frühere Versionen > Entwicklung

Mail in Lotus Script

(1/2) > >>

FRANKI:
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

Semeaphoros:
NotesDocument.Send, Beispiel und Einzelheiten in der DesignerHilfe

Glombi:
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

klaussal:
... 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

FRANKI:
Danke an alle

FRANKI

Navigation

[0] Themen-Index

[#] Nächste Seite