PDF Mail versenden
06.02.2017 14:00:13
RE
Ich habe hier ein Makro erstellt, welches mir vom ausgewählten Bereich per Knopfdruck ein PDF erzeugt und im Laufwerk U: abspeichert.
Wie kann ich das PDF direkt per Mail versenden? Habe Outlook 2016.
Hier mein aktueller Code
Sub PDF()
Range(Selection, Selection.End(xlDown)).Select
ChDir "U:\"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"U:\AVQ Weekly" & Cells(2, 2).Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=True
Range("A1").Select
End Sub