Probleme mit VBA Makro zum Senden einer Mail

[psychodennis89]

Hallo liebe Leute, ich habe bisher immer folgendes Makro zum Senden von Mail verwendet, seit heute kommt die Meldung Datei kann nicht gefunden werden, überprüfen Sie den Pfad ich vermute, das es an dem Rot eingefärbtem Teil liegt, ich habe dieverse kombinationen versucht, leider funktioniert keine,
könnt ihr mir vielleicht helfen ???

Sub Mail senden()
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.to = Range("A16")
.Subject = Range("F12") & " " & Range("J12")
.Body = "Die Rechnung finden im PDF-Format finden Sie im Anhang dieser Mail."
myAttachments.Add "E:\Dokumente\PDC Firmendaten\Rechnung\ " & Range("j12")
'.send
.Display
End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

[bayernsandy]

Hallo psychodennis89

Hab zwar kein Outlook, so dass ich es austesten kann, aber was mir in der rot eingefärbten Zeile aufgefallen ist, ist
dass du ein Leerzeichen vor dem ersten roten Anführungszeichen hast.
Damit wird das Leerzeichen zum Bestandteil des Dateinamens.
Grundsätzlich sind Leerzeichen in Dateinamen im Windows erlaubt, aber ich kann mir nur schwer vorstellen, dass du wirklich die Datei am Anfang mit Leerzeichen beginnst.

Ich würde mal das Leerzeichen am Ende des Strings in der nachfolgenden Zeile rausmachen.
"E:\Dokumente\PDC Firmendaten\Rechnung\ "

Gruß Thomas

[RPP63]

Damit dies auch so sehbeeinträchtigten Leuten wie mir auffällt, Dennis:
Poste Code hier im Forum ausschließlich mittels der Code-Schaltfläche, dann sieht man das Leerzeichen besser.

   

Code:

myAttachments.Add "E:\Dokumente\PDC Firmendaten\Rechnung\ " & Range("j12")

Gruß Ralf