VBA + Senden von E-Mails aus Word 2007

Question

Ich habe folgenden Code in meinem Word-Dokument (Office 2007), um eine E-Mail mit Anhang zu senden. Es wirft einen Syntaxfehler (Datei nicht gefunden) in der Zeile aus

.Attachement.Add "C:\abc.txt"

Code:

Private Sub CommandButton1_Click()

Dim outlookapp As Object
Dim item As Object
Dim subject As String
Dim msg As String

    Set outlookapp = CreateObject("outlook.application")

    msg = "Geben Sie hier Ihre Nachricht ein"
    subject = "Geben Sie hier den Betreff ein"
    Set item = outlookapp.createitem(0)

    With item
        .to = "some1@aaaaa.com  "
        .subject = subject
        .body = msg
        .Display
        .Attachments.Add "C:\abc.txt"
    End With

    End Sub

Was mache ich falsch?

Danke

Answer 1

Die Syntax zum Hinzufügen eines Anhangs zu einem Element sollte den Dateinamen in Klammern eingeschlossen haben.

Versuchen Sie es mit

.Attachments.Add ("C:\abc.txt")

anstatt

.Attachments.Add "C:\abc.txt"

Answer 2

Ich habe den obigen Code ausprobiert und er hat bei mir funktioniert. Können Sie eine Datei anhängen, die sich an einem anderen Ort als dem Stammverzeichnis von C befindet, z. B. c:\docs\?

BEARBEITEN Sie den Kommentar

Wenn der Pfad Leerzeichen enthält, benötigen Sie zusätzliche Anführungszeichen:

strfile="""c:\abc def.txt"""