2010-03-17 7 views
2

Je suis sous le code dans mon document Word (Office 2007) pour envoyer un mail avec Attachement Il lance erreur de syntaxe à la ligneVBA + Send Mail à partir de Word 2007

.Attachement.Add « C (fichier introuvable) : \ 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 = "Enter Message here" 
    subject = "Enter subject here" 
    Set item = outlookapp.createitem(0) 

    With item 
     .to = "[email protected] <mailto:[email protected]> " 
     .subject = subject 
     .body = msg 
     .Display 
     .Attachments.Add "C:\abc.txt" 
    End With 

    End Sub 

Qu'est-ce que je fais mal?

Merci

+0

J'ai ajouté une nouvelle note à mon poste. – Fionnuala

Répondre

0

J'ai essayé le code ci-dessus et cela a fonctionné pour moi. Pouvez-vous joindre un fichier situé ailleurs que la racine de C, par exemple, c: \ docs \?

EDIT Re Commentaire

Si le chemin comporte des espaces, vous aurez besoin des citations supplémentaires:

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

La syntaxe pour ajouter une pièce jointe à un élément doit avoir le nom du fichier joint entre parenthèses.

Essayez d'utiliser

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

au lieu de

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

Quelle version utilisez-vous? Comme je l'ai dit, le code fonctionne tel qu'il est. – Fionnuala

+0

Désolé les gars tout fonctionne, le problème était avec filepath ayant des espaces. Mon chemin de fichier est c: \ H & I \ abc.txt. Comment puis-je obtenir l'espace reconnu dans VBA. si html utilisait% 20 pour l'espace. Des indices? – Sreedhar

Questions connexes