Onjekt erforderlich (Email mit Attachment)

[reen]

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:

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 Sub

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é

[Case]

Hallo, :19:

lösche diese Zeile: :21:

Code:

Dim myAttachments As Variant

Und schreibe dann: :21:

Code:

.Attachments.Add choosefile

[reen]

Eieiei, manchmal kann es so einfach sein.

Vielen Dank für die schnelle Antwort!