Aktuellste PDF aus Ordner als Anhang
03.06.2020 15:22:41
Maxi
habe ein Problem: Ich habe ein Makro erstellt, welches eine Grafik aus einer Excel Datei automatisch in den Ordner "Test" mit aktuellen Datum speichert. Jeden Tag kommt so eine PDF-Datei mit aktuellem Datum + Zelle A66 in den Ordner hinzu. Diese neueste Datei möchte ich nun täglich via Mail versenden. Ich komme leider nicht drauf, wie ich das tue. Mit was muss ich .Attachments.Add "XXXXXX" füllen? (Gebe ich statt den Xen den Dateiname ein, funktioniert es, nur möchte ich nicht jeden Tag den Name ändern... Schonmal vielen Dank!
Gruß Max
Sub speichern()
'Variabeln
Dim filename As String
Dim filepath As String
'Dateiname
filename = Format(Date, "YYYY-MM-DD") & Range("A66").Value & ".pdf"
'Dateipfad
filepath = "U:\Test\"
'Arbeitsblatt als PDF speichern
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=filepath & filename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'Mail
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
'Mail
With objMail
.To = Range("B65")
.Subject = "Fehlteilverlauf"
.Body = Range("B66")
.Attachments.Add "XXXXXX"
.display
End With
End Sub
Anzeige