Email Signatur übernehmen

Sub Lieferschein_senden()
Dim strFilename As String
strDatei = Worksheets("Produktübersicht-Einstellungen").Range("G10").Value & "LI-" & Range("F5") & ".pdf"
Dim Text_Email As String
Text_Email = Worksheets("Kunden").Range("L6")
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
Set .SendUsingAccount = .Session.Accounts.Item("office@biohof-hofer.at")
.To = Range("T2")
.Subject = "Lieferschein LI-" & Range("F5")
.Body = Text_Email
'.send (falls man gleich senden möchte)
myAttachments.Add strDatei
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub