Lotus Notes Signatur

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

%Signatur%
Dear Sirs or Madame,
attached you will find an excel file.