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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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