Bonjour à tous!
J'ai déjà posé ma question sur Word mais on me réfère à Access alors voici :
Je veux faire une « fusion avec un message électronique » dans Word.
Les données proviennent d’Access.
Mais voilà, j’ai besoin d’un accusé réception pour chaque courriel*.
Quand je prépare mon document, dans Word, je clique sur le bouton «
Message électronique » pour pouvoir la barre d’outils nécessaire. Je
clique sur le bouton « Options ». Puis sur « Demander un accusé
réception pour ce message ». Ok.
Je continue avec ma fusion « Fusionner avec un message électronique »
et tout le reste. Mais quand tout est parti, je ne reçois jamais de
confirmation de réception.
Donc, on m'a guidé pour créer un code :
Le code en soit fonctionne bien : il envoie un courriel à "x...@gmail.com" avec le titre mentionné dans le code et le corps du texte mentionné ci-dessus également. CEPENDANT, ce n'est pas ce que je souhaite : je veux aller chercher mes "TO" dans le champs "Courriel" de ma base de données ACCESS.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Mailit() Dim MonOutlook As Object Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = "x...@gmail.com" MonMessage.Subject = "Titre" MonMessage.body = "Lettre du courriel" MonMessage.ReadReceiptRequested = True MonMessage.send Set MonOutlook = Nothing End Sub
Un gros merci de votre aide!
Souriane
*Note : on m'a mentionné comment l'accusé réception n'est pas fiable à 100% étant donné que certaines personnes demandent à leur système de les ignorer, mais mon groupe de personnes à qui j'envoie le email ont tous l'option active.![]()
Partager