[VBA W] Envoi Email depuis Word

[nono le golfeur]

Bonjour à tous,

Je souhaitais tout bêtement créer un bouton qui automatiquement envoi un email avec le document, sur lequel se trouve le bouton, en pièce jointe.

Ainsi j'ai utilisé ce code ma foi très basic :

Code :

1
2
3
4
5
6
7
 
Sub_SendEmail
 
Options.SendMailAttach = True
ActiveDocument.SendMail
 
End Sub

Mais je n'ai pas pu définir le déstinataires, l'object et plusieurs trucs dont j'aurais besoin..

Donc je suis passé par la fonction "route" mais les messages de sécurité peuvent éffrayer certains utilisateurs et puis surtout on peut pas gérer le contenu du mail voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = "XYZ Registration Form"
    .AddRecipient "arnaud.bouteiller@ge.com"
    .Delivery = wdAllAtOnce
End With
ActiveDocument.Route
 
 
 
End Sub

Enfin bref si quelqu'un à déjà trouvé une solution à ce problème qu'il n'hésite pas !!!

Un grand merci d'avance...

Bye

[nono le golfeur]

Dsl je rajoute quelque chose,

j'ai lu quelque pars sur le NET qu'en rajoutant une macro comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
 
 
Sub EssaiEnvoi
    dim Adr,Obj,Cps,Pièce
    Adr="toto@adresse.xxx"
    Obj="sujet du message"
    Pièce="c:\.......\MonFichier.jpg"
 
    EnvoiEMail Adresse="adresse desirée", Obj="...",Cps,Pièce
End Sub

Ca pouvais me permettre de choisir mon adresse, objet etc. mais la macro plante à chaque fois...

@++