Excel Tabelle direkt per Outlook versenden
04.07.2018 15:27:22
PeteK
ich würde gerne eine Exel Tabelle direkt als PDF speichern mit dem Dateiname aus Zelle Z18 und diese Datei soll dann direkt in Outlook geöffnet werden, mit den Empfängern aus Z15.
Habe es schon soweit hinbekommen das mir die Datei in en Zielordner abgelegt wird und Outlook geöffnet wird sofern ich einen festen Dateinamen vergebe.
Problem ist nun das der Dateiname sich stets verändert und Outlook somit auf die letzt gespeicherte Datei zugreifen soll. Könnte mich hierbei jemand unterstützen?
Sub PDFundSenden()
Range("Z18").Select
ChDir "K:\100_DE_After_Sales\280_Sales_Consultant\600_Umsatzreport_"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("Z18") _
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
.to = Range("Z15")
.Subject = Range("Z16")
.Body = "xx"
myAttchements.Add "K:\100_DE_After_Sales\280_Sales_Consultant\600_Umsatzreport\"
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End
Sub