Lotus Notes Signatur
08.05.2019 15:46:09
Klaus
mit folgendem Code verschicke ich "activesheet" als Lotus Notes Mail:
Sub MakeMailSheet()
'Datei erstellen
Dim MyPath As String
ActiveSheet.Copy
MyPath = "G:\MeinPfad\TMP Mail\" & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.SaveAs Filename:=MyPath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim attachment1 As String
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CreateDocument
attachment1 = MyPath
MailDoc.Form = "Memo"
Dim arEmpfang
MailDoc.sendto = "Klaus.M@Firmenname.de"
MailDoc.Subject = Date & " Shipment Dates / Liefertermine"
MailDoc.body = Chr(10) & Chr(10) & _
"Dear Sirs or Madame," & Chr(10) & _
"attached you will find an excel file."
' Zum Versenden der angegebenen Datei von der Variable attachment
stAttachment = ActiveWorkbook.FullName
Set AttachME = MailDoc.CREATERICHTEXTITEM("stAttachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment1, "stAttachment")
MailDoc.SAVEMESSAGEONSEND = True
Set Workspace = CreateObject("Notes.NotesUIWorkspace")
Call Workspace.EDITDOCUMENT(True, MailDoc).GOTOFIELD("Body")
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Kill MyPath
End Sub
Problem: Der Mailtext und die Signatur sind "falschrum". In meiner Vorschau sehe ich:%Signatur%
Dear Sirs or Madame,
attached you will find an excel file.
%Signatur% steht automatisch da, wenn ich ein neues Mail öffne und wird natürlich beim versenden gegen die Signatur ausgetauscht. Wie bekomme ich die Signatur aber UNTER Meinen Maildoc.body ?Viele Grüße,
Klaus