Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Lotus Notes Mail mit richtiger Signatur

Lotus Notes Mail mit richtiger Signatur
11.10.2019 17:19:47
Erik
Hallo liebe Forumsteilnehmer,
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 Gif’s. 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.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lotus Notes Mail mit richtiger Signatur
15.10.2019 14:37:13
Erik
Hallo Torsten,
danke für deine Antwort. Ich werd wohl weiter suchen und hoffen.
Gruss Erik
Anzeige

132 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige