AW: VBA: Formel wird gewandeltn in @-Formel
21.11.2022 06:53:13
Luschi
Hey,
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
Merci beaucoup
Johannes