leider bin ich bei allen Versuchen die Signatur direkt von Outlook zu nehmen gescheitert :( (trotz der wahnsinnig guten Beiträge hier). Würde gerne die Bilder in der Signatur mit übernehmen.
Darum bitte ich euch mir hierbei zu helfen:
Ich habe folgenden Code zum schreiben der Emails
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
Meine Outlook Signatur ist unter folgenden Pfad zu finden: C:\Users\Alexander\AppData\Roaming\Microsoft\SignaturesIch bedanke mich vorab bei euch!