Mail in Lotus Script

[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

[Glombi]

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