06.04.2020, 09:57
Hallo,
ich bin derzeit dabei eine Excel Tabelle mit kleinen Funktionalitäten zu erstellen.
Eine dieser Funktionalitäten soll sein eine Email zu Versenden mit Anhang der vorher mittels Dateipointer ausgesucht wird:
Ich bekomme hierbei immer den Laufzeitfehler 424 Objekt Erforderlich mit dem Zeig auf die Zeile myAttachments.Add choosefile. Der Dateipfad befindet sich allerdings in der Variable choosefile.
Ich finde meinen Fehler nicht, vielleicht könnt ihr mit weiterhelfen.
Danke und Grüße,
René
ich bin derzeit dabei eine Excel Tabelle mit kleinen Funktionalitäten zu erstellen.
Eine dieser Funktionalitäten soll sein eine Email zu Versenden mit Anhang der vorher mittels Dateipointer ausgesucht wird:
Code:
Sub EmailErstellen()
Dim objOutlook As Object
Dim objMail As Object
Dim ANF As String
Dim choosefile As String
If msgbox("Eine BANF anfragen?", _
vbQuestion + vbOKCancel, "BANF Anfrage") = vbOK Then
ANF = InputBox("Was soll bestellt werden?", "BANF Anfrage")
If msgbox("Möchtest du eine Datei anhängen?", vbYesNo) = vbYes Then
choosefile = Application.GetOpenFilename("Alle Dateien (*.*), *.*")
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
Dim myAttachments As Variant
.To = "xxx.@xxx.xxx"
.Subject = "ANFRAGE | " & ANF
.Body = "Anfrage " & ANF
myAttachments.Add choosefile
.Display
End With
End If
End If
End SubIch bekomme hierbei immer den Laufzeitfehler 424 Objekt Erforderlich mit dem Zeig auf die Zeile myAttachments.Add choosefile. Der Dateipfad befindet sich allerdings in der Variable choosefile.
Ich finde meinen Fehler nicht, vielleicht könnt ihr mit weiterhelfen.
Danke und Grüße,
René