Envoie de fichier vba

adr95 · 3 Février 2013

Bonjour,

Je sais que des sujets ont déjà été ouvert mais je ne comprends pas bien comme fonctionne l'envoi de fichier via vba.
J'ai adapté le code suivant :

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
With myitem
.Recipients.Add ("jeanrene@hotmail.com;atfcrew@yahho.fr")
.Subject = "analyse de données FO"
myitem.Display
End With

Mais j'ai pas réussi à mettre le fichier excel dans le message outlook.

Je vous joints aussi le fichier excel le code est dans l'userform 3.

Merci

MichD · 3 Février 2013

Re : Envoie de fichier vba

Bonjour,

Un exemple :

VB:

Sub test()
Dim MyOlapp As Object, MyItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MyItem = MyOlapp.CreateItem(olMailItem)
With MyItem
    .to = ("jeanrene@hotmail.com;atfcrew@yahho.fr")
    .Subject = "analyse de données FO"
    .Body = "Bonjour" & vbCrLf & vbCrLf & _
           "Voici le fichier promis." & vbCrLf & vbCrLf & _
           "Salutations"
    .Attachments.Add "c:\users\ton profil\Documents\classeur1.xlsm"
    .Display
End With
End Sub

adr95 · 3 Février 2013

Re : Envoie de fichier vba

J'ai finalement trouvé il fallait rajouter :

.Attachments.Add "C:/" '<-Ici le chemin du fichier

Envoie de fichier vba

adr95

XLDnaute Occasionnel

Pièces jointes

MichD

XLDnaute Impliqué

adr95

XLDnaute Occasionnel

Discussions similaires

Envoie de fichier vba

adr95

XLDnaute Occasionnel

Pièces jointes

MichD

XLDnaute Impliqué

adr95

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency