Macro envoi formulaire Word par mail [Résolu]

Signaler
-
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020
-
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

Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020
659
bonjour, as-tu essayé en utilisant l'enregistreur de macros?
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020
>
Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020

Ah oui forcément.. donc je pourrais quelque chose dans le genre à la fin de ma macro?

ChDrive ("U")
ChDir ("U:\dossier")
Kill "fichier"  
Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020
659 >
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020

plus simple:
Kill "U:\dossier\fichier"
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020
>
Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020

En effet, merci! Maitenant que tout ça est vu, je ne vois pas comment modifier ma macro pour que la pièce jointe de mon mail soit le document pdf précédemment enregistré (via une autre macro) et pas mon formulaire actif au format word...

Sub EnvoiMail()

Dim ObjOutlook As Outlook.Application
Dim OBjMail As Outlook.MailItem

         Set ObjOutlook = Outlook.Application
        Set OBjMail = ObjOutlook.CreateItem(olMailItem)
        
        With OBjMail
            .To = "florian.delatouche@labanquepostale.fr"
            .CC = "sandrine.delacroix@labanquepostale.fr"
            .Subject = "Fiche test"
            .Body = "Bonjour"

            .Display
        End With

     Kill "U:\formulaire_en_pdf"   

End Sub    


Peut être au niveau de cette ligne : Set OBjMail =
ObjOutlook.CreateItem(olMailItem)
?

Merci,
Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020
659 >
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020

veux-tu dire que la pièce jointe est le formulaire? je ne vois pas trop où tu ajoutes une pièce jointe.
peut-être ainsi:
.Attachments.Add "U:\formulaire_en_pdf"
Messages postés
16
Date d'inscription
jeudi 25 juin 2020
Statut
Membre
Dernière intervention
26 juin 2020
>
Messages postés
11549
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 juillet 2020

Ca fonctionne comme ça oui! Cependant, on en revient au problème de notre autre discussion : je veux que le fichier en pj corresponde au bon formulaire (c'est-à-dire celui dont le nom comprend le contenu de ma TextBox)... A voir dans la discussion "Macro enregistrement fichier avec contenu TextBox"! Bref en tout cas tout est OK pour la partie envoi mail merci beaucoup!
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
Bonjour, merci bcp! je regarde ça