Imprimer CCI dans outlook 2007

benxico · 03/03/2011, 13h35

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 :

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

Par contre je n'arrive pas à la faire fonctionner dans Outook.
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

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email