Bonjour,
j'ai un petit soucis je souhaites pouvoir imprimer les cci afin de garder une trace papier (archive) des envois de mailing fait en cci pour que les destinataires ne se voient pas entre eux.
J'ai bien trouvé cette macro :
Par contre je n'arrive pas à la faire fonctionner dans Outook.
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 Sub ImprimeCCI() 'by Oliv 09/02/2007 Dim oMessage As MailItem If Application.ActiveInspector Is Nothing Then GoTo Fin End If Set oMessage = ActiveInspector.CurrentItem If oMessage.BodyFormat = olFormatHTML And _ oMessage.Bcc <> "" Then ListeCCI = oMessage.Bcc ListeCCI = "<BODY><B>CCI:</B>" & ListeCCI & "<br>" oMessage.HTMLBody = Replace(oMessage.HTMLBody, "<BODY>", ListeCCI) 'pour sauvegarder les modifications décommenter la ligne ci-dessous 'oMessage.Save End If If oMessage.BodyFormat = olFormatPlain And _ oMessage.Bcc <> "" Then ListeCCI = oMessage.Bcc ListeCCI = "CCI:" & ListeCCI & Chr(10) oMessage.Body = ListeCCI & oMessage.Body 'pour sauvegarder les modifications décommenter la ligne ci-dessous ' oMessage.Save End If Fin: ListeCCI = "" Set oMessage = Nothing End Sub
Je vais dans : Outils -> Macro -> Sécurité
Je coche "aucun controle de sécurité pour les macros".
Ensuite je vais dans : Outils -> Macro -> Macro...
La je créé la macro en lui donnant le nom "ImprimeCCI"
Ensuite je copie colle la macro dans la fenêtre "VBAProject.otm" - Module1 (code) qui s'est ouverte.
Puis j'enregistre (ctrl S) et je lance la macro avec le bouton exécuter.
J'essaye d'imprimer un mail et les champs CCI n'apparaissent pas à la fin dans le corps du mail.
J'ai aussi essayé en allant dans Outils -> Macro -> Macro...
Et en faisant exécuter, c'est la même chose.
J'avais installé cette macro chez un ami cet été et ça avait fonctionné.
Là je sais pas ce que je fais comme erreur mais ça fonctionne pas
Si une âme charitable pouvait me donner un petit coup de pouce je veux bien
Bien amicalement,
Benxico
Partager