Hi Leute,
ich verwende in meinem Programm MAPI um Emails mit Anhang über OutlookExpress zu versenden.
Das ganze funktioniert auch tadellos.
Das einzige was nicht klappt: Ich kann keine Emailsignatur an das Ende der Mail einfügen.
OutlookExpress ist bei mir so eingestellt das automatisch die in OE voreingestellte HTML-Signatur bei jeder neuen Nachricht automatisch eingefügt wird. Im Normalbetrieb funktioniert das auch (ich klicke auf 'Neue Email' und dann kommt ein neues Nachrichtenfenster inkl. eingefügter Signatur)
Nur wenn ich eine Neue Email über MAPI erzeuge, dann fügt er trotz dieser Voreinstellung die Signatur nicht ein.
Weiss jemand Rat?
Danke, Euch...Schönen Sontag.
Gruß
Jochen
Hier mein Code:
MAPISession.SignOn
MAPISession.DownLoadMail = False
With MAPIMessages
.SessionID = MAPISession.SessionID
.Compose
.MsgSubject = "Emailbetreff"
.MsgNoteText = _
"Fügen Sie hier Ihren Text ein..."
Dim i As Long
For i = 1 To GetLineCount(App.Path & "\fileinfo.tmp")
.AttachmentIndex = i
.AttachmentPathName = txt_ReadLine(App.Path & "\fileinfo.tmp", i)
Next i
.Send True
MAPISession.SignOff
End With
ich verwende in meinem Programm MAPI um Emails mit Anhang über OutlookExpress zu versenden.
Das ganze funktioniert auch tadellos.
Das einzige was nicht klappt: Ich kann keine Emailsignatur an das Ende der Mail einfügen.
OutlookExpress ist bei mir so eingestellt das automatisch die in OE voreingestellte HTML-Signatur bei jeder neuen Nachricht automatisch eingefügt wird. Im Normalbetrieb funktioniert das auch (ich klicke auf 'Neue Email' und dann kommt ein neues Nachrichtenfenster inkl. eingefügter Signatur)
Nur wenn ich eine Neue Email über MAPI erzeuge, dann fügt er trotz dieser Voreinstellung die Signatur nicht ein.
Weiss jemand Rat?
Danke, Euch...Schönen Sontag.
Gruß
Jochen
Hier mein Code:
MAPISession.SignOn
MAPISession.DownLoadMail = False
With MAPIMessages
.SessionID = MAPISession.SessionID
.Compose
.MsgSubject = "Emailbetreff"
.MsgNoteText = _
"Fügen Sie hier Ihren Text ein..."
Dim i As Long
For i = 1 To GetLineCount(App.Path & "\fileinfo.tmp")
.AttachmentIndex = i
.AttachmentPathName = txt_ReadLine(App.Path & "\fileinfo.tmp", i)
Next i
.Send True
MAPISession.SignOff
End With
Zuletzt bearbeitet:
