Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_SendMail
Holt die Daten der URL und gibt diese als NotesStream zurück.
Dim adfrom As String
Dim adto As String
Dim adcc(0 To 1) As String
Dim subject As String
Dim attach List As String
Dim html As String
Dim mail As String
Dim test As Boolean
adfrom = "Max Mustermann <max@mustermann.de>"
adto = "Monika Mustermann <monika@mustermann.de>"
adcc(0) = "sohn@mustermann.de"
adcc(1) = "tocher@mustermann.de"
subject = "Letzte Urlaubsbilder"
attach("/local/notesdata/Bild_001.jpg") = "image/jpeg"
attach("/local/notesdata/Bild_002.jpg") = "image/jpeg"
html = |<h1>Urlaubsbilder</h1> <br />anbei die letzten Urlaubsbilder|
mail = |Urlaubsbilder anbei die letzten Urlaubsbilder|
test = CNCL_SendMail(adfrom, adto, adcc, "", "", subject+"(P3)", html, mail, attach)
Funktion:
Versendet mit normaler Priorität eine Multipart-Mail mit zwei angehängten Bildern an insgesamt 3 Empfängern, von denen zwei CC-Empfänger sind.