|
Hallo liebes VBA-Freunde!
Habe im Internet bereits herum gegoogelt aber bin leider nicht schlau geworden, deswegen wende ich mich nun hier an euch.
Ich würde gern ein Tabellenblatt als PDF umwandeln, dieses temporär auf C speichern und dieses als Mailanhang dann versenden.
Die PDF Erzeugung funktioniert bereits, aber dieses landet nicht als Anhang im Mail.
Der Code lautet:
Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strPDF As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'++ Dateiname
Dim Dateiname As String
Dateiname = Range("AA2")
'++ PDF erzeugen vom aktuellen Tabellenblatt
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\TEMP\" & Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'++Pfad der Zwischenspeicherung
strPfad = "C:\TEMP\"
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strPDF = strPfad & Dateiname
'** Body-Text festlegen
strBodyText = Range("AZ2")
'** Mail erzeugen
With Mail
.To = ""
.CC = ""
.Subject = Dateiname
.BodyFormat = 2
.Attachments.Add strPDF
.Body = strBodyText
End With
'** Erzeugte und geöffnete PDF Datei schließen
strPDF.Close
'** Erzeugte Datei wieder löschen
Kill (strPDF)
'** E-Mail anzeigen
Mail.Display
'++ Objektvariablen wieder löschen
Set outObj = Nothing
Set Mail = Nothing
'
End Sub
Könnt ihr mir hier bitte weiterhelfen?
VIELEN DANK!!!
|