Excel als PDF > XLSX > Email angang
21.06.2019 11:40:03
botfaehig
brauche mal wieder eure Unterstützung. :-)
ich muss täglich mehrere Exceltabellen speichern und diese als Email versenden.
ich möchte das automatisieren!
Also bestimmtes Tabellenblatt als .xlsx und als .pdf speichern und .pdf in Email öffnen und anhängen. (immer gleicher text. Betreff Name der PDF Datei reicht aus)
Hier habe ich einen Ansatz gefunden und ausprobiert, es geht...
kann bitte jemand mich mit dem Rest unterstützen?
Vielen Dank
Private Sub CommandButton1_Click()
ChDir "C:\Users\asafarr1\Desktop\Testordner\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("F5").Value & Format(Date, "Test YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
_
_
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub