Emails mit Anhang per Excel versenden
15.04.2021 17:57:02
Jäger
ich habe ein kleines Excel Problem ...
mein Code hatte jetzt 1 1/2 Wochen ohne Probleme Funktioniert .
Aber jetzt auf einmal bekomme ich einen Laufzeitfehler'-2147024894 (80070002)':
Die Datei kann nicht gefunden werden. Überprüfen sie den Pfad und Dateinamen.
Und markiert mir dann im debugger : .Attachments.Add DateiName
Sub PDF_und_Senden()
Dim DateiName As String
DateiName = Range("I15") & ".pdf"
Worksheets(3).Range("A1:G49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality: _
=xlQualityStandart, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Dim Outlook As Object
Dim Nachricht As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set Nachricht = OutlookApp.CreateItem(0)
Set myAttachments = Nachricht.Attachments
With CreateObject("Outlook.Application").CreateItem(0)
.To = Range("I14").Value
.Subject = Range("I15").Value
.Body = Range("H20") & (" ") & Range("H22").Value & (" ") & Range("H23").Value
.Attachments.Add DateiName
.Display
' .Mail.Send
End With
Set OutlookApp = Nothing
Set Nachricht = Nothing
End Sub
aber warum geht es dann 1 1/2 wochen und dann auf einmal nicht mehr
Ganz liebe Grüße
Jaeger
Anzeige