VBA Email mit Anhang als PDF
11.05.2021 16:47:44
Marko
ich habe eine Frage zu dem nachstehenden Code. Mit diesem Code erzeuge ich eine E-Mail mit PDF Anhang. In einer anderen Datei funktioniert dieser Code. Jetzt habe ich den Code kopiert und entsprechend angepasst. Warum auch immer wird der Code nicht ausgeführt. Laufzeitfehler - Das Dokument wurde nicht gespeichert.
Debuggen in "Sheets("BA1").Range("A1:G67").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file" - Warum ist das so?
Vielen Dank für Eure Hilfe.
Gruß, Marko
Sub EmailErzeugen_BA1()
Dim app As Object
Dim file As String
Dim isNew As Boolean
Dim olAPP As Object
Dim olOldBody As String
file = Sheets("BA1").Range("L20").Text & ".pdf"
Sheets("BA1").Range("A1:G67").ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.GetInspector.Display
.To = Sheets("BA1").Range("M17").Value
.CC = ""
.BCC = ""
.Subject = Sheets("BA1").Range("L20").Value
.htmlbody = "" _
& "
" & Sheets("BA1").Range("S41") _
& "
" & Sheets("BA1").Range("S42") _
& "
" & .htmlbody
.Attachments.Add Environ("TEMP") & "\" & file
.ReadReceiptRequested = True
End With
If isNew Then app.Quit
End Sub
Anzeige