Macro envoi formulaire Word par mail

Résolu
Flodel35 -  
Flodel35 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Etant novice en VBA, je rencontre un problème : j'ai créé un formulaire Word (avec TextBox et ComboBox notamment) et je cherche à créer une macro permettant d'envoyer ce formulaire par mail (via Oulook) avec un objet, un destinataire principal (toujours le même), un destinataire en copie (toujours le même également) et un corps de message pré-définis. J'ai fait plusiers essais et ait aboutit à la macro suiavnte :

Sub EnvoiMail()

ActiveDocument.SendMail
To="adresse mail"
Cc = "autre adresse mail"
Subject = "Test envoi fiche"
Body = "Bonjour"

End Sub

Malheuresuement, au niveau du TO, j'ai une erreur de compilation : attendu numéro de ligne ou étiquette ou instruction ou fin d'instruction... L'un de vous aurait-il la solution ou une macro plus adaptée?

Merci d'avance,
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, as-tu essayé en utilisant l'enregistreur de macros?
0
Flodel35
 
Bonjour,

Oui j’ai essayé mais je me retrouve avec seulement « ActiveDocument.SendMail » dans ma macro enregistrée. Quand je l’exécute, j’ai donc simplement ma boîte Outlook qui s’ouvre avec mon formulaire en PJ et en objet le nom de mon fichier...
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Flodel35
 
suggestion, à adapter: 
Dim ObjOutlook As Outlook.Application
Dim OBjMail As Outlook.MailItem

         Set ObjOutlook = Outlook.Application
        Set OBjMail = ObjOutlook.CreateItem(olMailItem)
        
        With OBjMail
            .To = "...@gmail.com" ' le destinataire
            .Subject = "Test"
            .Body = ""

            .Send
        End With
0
Flodel35 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Merci beaucoup! Cela fonctionne parfaitement. Cependant, le mail s'envoie directement et j'aimerais créer une "étape de confirmation" : l'idéal serait d'arriver sur la fenêtre ci-dessous (avec destinataire, objet et corps de message rempli comme dans la macro donnée précedemment) :



Ainsi, l'utilisitaur pourra modifier le mail si besoin et n'aura qu'à appuyer sur "envoyer"...

Encore merci pour votre aide déjà précieuse
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > Flodel35 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
peut-être en remplaçant 
.send
par 
.display
0
Flodel35 Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
J'y avais pensé mais message d'erreur indiquant : "Le serveur distant n'existe pas ou n'est pas disponible"...
0
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci:

https://support.openhost-network.com/autres/programmation-developpement/envoyer-mail-vba-cdo/

0
Flodel35
 
Bonjour, merci bcp! je regarde ça
0

Discussions similaires

Rétrodiffusion "Mail Delivery System"
baissaoui -
baissaoui -

0 réponse