Macro envoi formulaire Word par mail

Résolu
Flodel35 -  
Flodel35 Messages postés 28 Statut Membre -
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,

2 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, as-tu essayé en utilisant l'enregistreur de macros?
    0
    1. 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
    2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > 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
    3. Flodel35 Messages postés 28 Statut Membre > yg_be Messages postés 23437 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
    4. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Flodel35 Messages postés 28 Statut Membre
       
      peut-être en remplaçant 
      .send
      par 
      .display
      0
    5. Flodel35 Messages postés 28 Statut Membre > yg_be Messages postés 23437 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

Discussions similaires

Symbole Attention dans Word
Nortec59 -
LOUL7619 -

33 réponses