Worksheet als PDF speichern und per Mail senden
10.10.2018 17:10:23
Andreas
eine kleine Frage hätte ich zu meinem beigefügten Code.
Dieser funktioniert soweit ganz gut.
Ich möchte aber gerne den Dateinamen nicht als "Test.pdf" speichern,
sondern als Name soll ein Zellwert (ActiveSheet.Range("J1") dienen.
Was muss ich da genau umstellen?
Public Sub Email_Pdf()
ActiveSheet.Range("E1:J58").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Desktop\Test.pdf", OpenAfterPublish:=True
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 = Sheets(1).Range("G6, G7")
.Subject = ActiveSheet.Range("A6") & " für BV " & ActiveSheet.Range("J1") & " " & _
ActiveSheet.Range("G1")
.Body = "Bitte um Rückmeldung der noch nicht berechneten Leistungen zu o.g. Bauvorhaben"
myAttachments.Add "C:\Users\Desktop\Test.pdf"
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
DANKE
Andreas