Outlook Anhang trotz Dir() Fehlermeldung
07.08.2022 20:27:22
JoTu
ich verschicke mittels Makro ein Dokument per Mail und hänge noch andere Anhänge dazu. Irgendwie kommt es aber bei Anhang 3 immer zu einem Fehler, obwohl Anhang 2 problemlos funktioniert. Trotz Test mit Dir(), ob die Datei existiert und nur dann soll es den Anhang dazuhängen. Kommt trotzdem eine Fehlermeldung. Weiß jemand Abhilfe?
Private Sub CommandButton9_Click()
'' B U T T O N : "Mail öffnen [...]" ''
Dim objOutlook As Object: Set objOutlook = CreateObject("Outlook.Application")
Dim objMail As Object: Set objMail = objOutlook.CreateItem(0)
Dim objFSO As Object: Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim strSignatur As String
Dim Anhang As String
Dim Anhang2 As String
Dim Anhang3 As String
If objFSO.FileExists(Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 5) & ".pdf") = False Then
MsgBox "Datei nicht vorhanden. Erst PDF erstellen!"
Else
Anhang = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 5) & ".pdf"
Anhang2 = "Laufwerk:\Ordner\Ordner\Datei1.pdf"
'Hier kommt der Fehler
Anhang3 = "Laufwerk:\Ordner\Ordner\Datei2_Stand:" & "*" 'Anfang der Datei immer gleich, dann unterschiedlich weiter, je nach Aktualisierungsdatum der Datei, deshalb * als Platzhalter für den Rest
With objMail
.GetInspector.Display
.To = "mail@mail.de"
.ReplyRecipients.Add "mail_reply@mail.de"
.Subject = "Mail mit Anhängen"
If Dir(Anhang, vbNormal) "" Then .Attachments.Add Anhang
If Dir(Anhang2, vbNormal) "" Then .Attachments.Add Anhang2
If Dir(Anhang3, vbNormal) "" Then .Attachments.Add Anhang3
.Display
End With
End If
'' Ende: "Mail öffnen [...]" ''
Ende:
End Sub
Johannes