Discussion :

[AgentX007]

Bonjour à tous,

Tout d'abord je ne maîtrise pas VBA je bidouille juste en fonction des besoins...

J'ai besoin d'envoyer un save the date par mail pour un événement que j'organise au taf.
Comme ce sont des personnes tels que des directeurs je dois mettre en copie leur assistante de direction, sous directeur ....

Problème le publipostage mail de word ne permet pas de mettre des cc.

Je tente donc de faire une macro car j'ai plus de 50 personnes à inviter et manuellement je vais y passer trop de temps sans compter les possibles erreurs.



J'ai 2 fichiers: mon fichier Word Xav.docm qui contient mon mail à envoyer et ma base de données d'invités sous forme de fichier excel Test.xlsx avec une colonne CC.

Mon problème est de récupérer dans ma macro le mail rédiger dans mon document word avec la mise en page pour l'envoyer.
Pour le reste la macro fonctionne elle me donne bien le mail avec l'objet le destinataire et la personne en copie, reste juste à récupérer le corps du mail.

J'ai testé plusieurs choses trouvé à droite et à gauche mais rien ne fonctionne.

Je vous joins les 2 fichiers, si quelqu'un a une idée ça m'aiderait beaucoup car ça fait plusieurs jours que je cherche sans succès !!!

Merci

[AgentX007]

Bon ben finalement j'ai trouvé la solution

Je vous copie directement le code ça devrait aider quelques personnes !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Sub emailFromDoc()
    Dim wd As Object, editor As Object
    Dim doc As Object
    Dim oMail As Object
    Dim oApp As Object
 
    Dim iR As Integer
    Dim i As Integer
    Dim oDoc As Document
    Dim oDS As MailMergeDataSource
    Dim DocName1 As String
    Dim DocName2 As String
 
    Set oDoc = ActiveDocument
    Set oDS = oDoc.MailMerge.DataSource
    Set oApp = CreateObject("Outlook.Application")
 
 
 
    Set wd = CreateObject("Word.Application")
    Set doc = ActiveDocument
    doc.Content.Copy
    Set wd = Nothing
 
 
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
 
 
    Set oMail = oApp.CreateItem(olMailItem)
    With oMail
 
 
         With oDoc.MailMerge
             'Définition du premier et dernier enregistrement
             .DataSource.FirstRecord = i
 
             .DataSource.LastRecord = i
            ' Actualisation de l'enregistrement pour la sauvegarde
             .DataSource.ActiveRecord = i
              DocName1 = .DataSource.DataFields(5).Value
              DocName2 = .DataSource.DataFields(6).Value
        End With
 
 
 
        'Ajout des destinataires
            .To = DocName1
            .CC = DocName2
            .Subject = "- SAVE THE DATE - "
 
'        .BodyFormat = olFormatRichText
        Set editor = .GetInspector.WordEditor
        editor.Content.Paste
       .Display
       .Send
 
    End With
 
Next i
End Sub

[Sepia]

Salut AgentX007,

Bravo pour ta solution et merci de l'avoir posté pour tous les autres DVPnautes.

Bon ben finalement j'ai trouvé la solution

Je vous copie directement le code ça devrait aider quelques personnes !

@+
Sepia

[Didibird]

Bonjour AgentX007,

Mille mercis pour ce précieux code !!

J'ai adapté le code et cela fonctionne très bien sauf que j'aimerais envoyé un mail personnalisé pour chaque destinataire. Par exemple, "Cher Name1", "Cher Name2", etc.

J'ai donc inclus des champs dans mon fichier word mais la macro ne prends pas en compte le résultat du publipostage et envoie le même message à tout le monde. Quand je fais le publipostage standard ça marche mais je ne peux pas ajouter de destinataire en cc...

Y aurait-il moyen de modifier ton code dans ce sens?

Je n'y connais rien en macro, c'est la première que j'utilise de ma vie

Merci d'avance pour tes lumières.
Bien cordialement,
db

Bonjour à tous,

Tout d'abord je ne maîtrise pas VBA je bidouille juste en fonction des besoins...

J'ai besoin d'envoyer un save the date par mail pour un événement que j'organise au taf.
Comme ce sont des personnes tels que des directeurs je dois mettre en copie leur assistante de direction, sous directeur ....

Problème le publipostage mail de word ne permet pas de mettre des cc.

Je tente donc de faire une macro car j'ai plus de 50 personnes à inviter et manuellement je vais y passer trop de temps sans compter les possibles erreurs.



J'ai 2 fichiers: mon fichier Word Xav.docm qui contient mon mail à envoyer et ma base de données d'invités sous forme de fichier excel Test.xlsx avec une colonne CC.

Mon problème est de récupérer dans ma macro le mail rédiger dans mon document word avec la mise en page pour l'envoyer.
Pour le reste la macro fonctionne elle me donne bien le mail avec l'objet le destinataire et la personne en copie, reste juste à récupérer le corps du mail.

J'ai testé plusieurs choses trouvé à droite et à gauche mais rien ne fonctionne.

Je vous joins les 2 fichiers, si quelqu'un a une idée ça m'aiderait beaucoup car ça fait plusieurs jours que je cherche sans succès !!!

Merci