Mail mit Text erzeugen
24.04.2015 09:46:10
Andreas
ich brauche mal wieder eure Hilfe bei meinem kleinen Excel Projekt:
Ich erzeuge eine PDF Datei des Tabellenblattes, das auf dem Desktop des Users gespeichert wird, mit unten stehendem Code.
Ich würde nun gerne, dass zusätzlich auch noch eine Mail in Outlook geöffnet wird, an der diese PDF angehangen ist und ein bestimmter Bereich aus dem Blatt (B18:G47) in den Text der Mail geschrieben wird.
Betreff der Mail soll derselbe wie Dateiname (siehe unten) sein.
Ich habe schon nach entsprechenden Lösungen gesucht, bin aber nicht wirklich fündig geworden, zumindest nicht so, dass es für mich umsetzbar war.
Wäre super, wenn mir hier jemand helfen könnte.
Dankeschön!
Sheets("COB1").Select
Dim strPfad As String
Dim DatNam As String
DatNam = "COB_" & Sheets("COB1").Range("D8").Text & "_" & Sheets("COB1").Range("D3").Text & _
".pdf"
strPfad = Environ("UserProfile") & "\Desktop\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfad & DatNam, _
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True