Macro envoi formulaire Word par mail

Résolu/Fermé

Flodel35 - 25 juin 2020 à 11:28
Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020 - 26 juin 2020 à 11:43

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:

Macro envoi formulaire Word par mail
Yahoo mail - Accueil - Mail
Espace insécable word - Guide
Supprimer une page word - Guide
Macro word - Guide
Organigramme word - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025 Ambassadeur 1 570
25 juin 2020 à 11:53

bonjour, as-tu essayé en utilisant l'enregistreur de macros?

Flodel35
25 juin 2020 à 11:59

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...

yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025 1 570 > Flodel35
25 juin 2020 à 12:09

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

Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020 > yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025
25 juin 2020 à 12:30

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

yg_be Messages postés 23487 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 mars 2025 1 570 > Flodel35 Messages postés 26 Date d'inscription jeudi 25 juin 2020 Statut Membre Dernière intervention 26 novembre 2020
25 juin 2020 à 13:49

peut-être en remplaçant

.send

par

.display

J'y avais pensé mais message d'erreur indiquant : "Le serveur distant n'existe pas ou n'est pas disponible"...

Réponse 2 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
25 juin 2020 à 12:03

Bonjour,

voir ceci:

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

Flodel35
25 juin 2020 à 12:09

Bonjour, merci bcp! je regarde ça