18.01.2021, 15:18
Hallo zusammen,
ich möchte aus Excel mit VBA eine Mail versenden und habe dafür folgenden Code der immer funktioniert hat. Nun auf einmal sagt er mir das der Pfad nicht gefunden wird. Obwohl der Pfad und alles weitere gleich geblieben ist. Er sagt mir egal, wie ich den Pfad ändere, dass der Pfad falsch ist. Die Datei ist eine Email Vorlage aus Outlook.
Hier der code:
ich möchte aus Excel mit VBA eine Mail versenden und habe dafür folgenden Code der immer funktioniert hat. Nun auf einmal sagt er mir das der Pfad nicht gefunden wird. Obwohl der Pfad und alles weitere gleich geblieben ist. Er sagt mir egal, wie ich den Pfad ändere, dass der Pfad falsch ist. Die Datei ist eine Email Vorlage aus Outlook.
Hier der code:
Code:
Sub mail50()
ActiveWorkbook.Save
Dim nachricht As Object
Set OutApp = CreateObject("Outlook.Application")
Set nachricht = OutApp.CreateItemfromTemplate("\\XXX\XXX\123\Mailvorlagen\Abfragechsleiter.oft")
With nachricht
.To = ""
'.Subject = ""
'.Body = ""
.Cc = ""
.Attachments.Add ThisWorkbook.FullName
.Attachments.Add ("\\md-man.biz\XXXXXX\YXXXX\213\20.xlsx")
.Display
End With
ActiveWorkbook.Close True
End Sub