kopierte Daten als Anhang anfügen
18.05.2018 11:10:27
Sarah
ich kopiere aus einer Exceldatei einige Datensätze und möchte diese dann in eine Outlook Mail als Anhang hinzufügen.
Mein Code sieht bisher so aus:
'Daten in neue Mail kopieren
Range("$A$1:$AF$" & leZeile).Select
Selection.Copy
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.display
Mail.bodyformat = 1
Mail.Subject = "Betreff"
Mail.To = "Mail@mail.de"
Mail.body = "Hallo Zusammen," & Chr(13) & Chr(13) _
& "im Anhang die Liste"
Mail.display
Bis zur Mailerstellung funktioniert auch alles super. Ich habe es mit "Application.SendKeys ("^v")" versucht diese einzufügen, aber dann werden die Zeilen in die Mail selber kopiert und nicht als Anhang.