Lotus Notes Mail mit richtiger Signatur
11.10.2019 17:19:47
Erik
ich benötige mal wieder eure Hilfe.
Aus einer Exceltabelle heraus wird ein PDF erzeugt, dieses dann als Anhang per Mail mit _
Signatur versendet. Als Mailprogramm wird Lotus Notes benutzt. Die Signatur kam aus Notes als _ einfacher Text. Jetzt wurde die Signatur geändert, mit formatierten Text und Gifs. Diese als Rich Text hinterlegt. Leider wird nun diese Signatur nicht mehr mit beim Versenden der Mail übergeben.
Public Function NotesMailSend(strEmpfaenger As String, strBetreff As String, _
strText As String, strcc As String, strbcc As String, strFilename As _
String)
' Dimensionierung der Objektvariablen
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object, _
objNotesMailProfileDoc As Object
Dim SendItem, NCopyItem, BlindCopyToItem, i As Integer, rtitem
Dim msg As String
' Zuweisung der Objektvariablen
Set objNotes = GetObject("", "Notes.Notessession")
Set objNotesDB = objNotes.GetDatabase("", "")
' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
Call objNotesDB.OPENMAIL
Set objNotesMailDoc = objNotesDB.CreateDocument
objNotesMailDoc.Form = "Memo"
'Signatur Notes holen
Dim StrSignature As String
'Profildokument holen und im Speicher halten
Set objNotesMailProfileDoc = objNotesDB.GetProfileDocument("CalendarProfile")
StrSignature = StrSignature & objNotesMailProfileDoc.GetItemValue("Signature")(0)
objNotesMailDoc.Logo = objNotesMailProfileDoc.GetItemValue("DefaultLogo")(0)
Call objNotesMailDoc.Save(True, False)
Set SendItem = objNotesMailDoc.AppendItemValue("SendTo", "")
objNotesMailDoc.sendto = strEmpfaenger
objNotesMailDoc.Subject = strBetreff
Set rtitem = objNotesMailDoc.CreateRichTextItem("Body")
With rtitem
.AppendText (strText) ' & StrSignature)
.AddNewLine (2)
Call rtitem.EmbedObject(1454, "", strFilename)
.AppendText (StrSignature)
End With
' Mail zustellen
Call objNotesMailDoc.Save(True, False)
Call objNotesMailDoc.Send(False)
objNotesMailDoc.RemoveItem ("DeliveredDate")
Call objNotesMailDoc.Save(True, False)
' Nachricht an Benutzer
msg = "Die E-Mail wurde erfolgreich versendet!"
MsgBox msg, vbInformation, "Notesmail versenden..."
' Objektvariablen zurücksetzen
Call objNotes.Close
End Function
Dieser Quellcode stammte nicht von mir, ich hab ihn nur passende auf meine Bedürfnisse angepasst und fuktionierte bisher super. Vielleicht kann mir jemand weiterhelfen, oder mich zu einen passendem Thema verweisen.
Vielen Dank im Voraus.