Auf einmal Laufzeitfehler - Mailanhang
05.05.2015 09:28:19
Andreas
ich habe mir mit diversen Foren einen VBA Code gebaut, der mir eine PDF erstellt und diese an eine Email anhängt.
Es hat bei den ersten beiden Testläufen wunderbar funktioniert und ich war tierisch begeistert. Seit heute Morgen bekomm ich allerdings immer einen Laufzeitfehler -2147024894 (80070002) und der Debugger zeigt mir folgende Zeile an:
.Attachments.Add DatNam
Unten ist der komplette Code, der wie gesagt auch schon zwei mal wunderbar gelaufen ist und mir die Mail mit Anhang geöffnet hat.
Kann hier jemand helfen und mir sagen, wo der Fehler liegt?
Private Sub Commandbutton1_Click()
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:=False
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.TO = "ich@ich.de"
.CC = ""
.Subject = "Confirmation on board_" & Sheets("COB1").Range("D8").Text & "_" & _
Sheets("COB1").Range("D3").Text
.Attachments.Add DatNam
.Display
End With
End Sub