Remplir le champ CC automatiquement sous Outlook [A Faire] [Résolu]

[Labore]

Bonjour,

Je n'ai que peu de compétence en développement, et j'aimerais une macro sous Outlook qui me remplisse automatiquement le champ CC à chaque fois que j'envoie un nouveau mail ou que je réponds à un mail.
En effet, je dois toujours envoyer copie de mes mails à la même personne, et cela me simplifierait un peu la tâche si cela se remplissait sans que je n'ai rien à faire.
Merci d'avance pour toute piste de solution.

Labore

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Ce bout de code devrait te le faire.

Code :

1
2
3
4
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Item.CC = "Monadresse@fai.fr"
 
End Sub

[Labore]

Merci beaucoup de la réponse,
malheureusement, cela marche mal. J'ai plusieurs compte mail sous Outlook 2003, et la macro modifie l'expéditeur retenu sans envoyer la copie, alors même qu'elle apparaît dans les champs du message envoyé. Là, je suis très perplexe sur le fonctionnement de Outlook .
Encore merci, et je continue à tester et chercher.
Labore

[Heureux-oli]

Je rencontre le même problème, je vais chercher le motif.

[Labore]

J'ai essayé cela, mais pareil, cela ne marche pas, il me change l'affichage de l'expéditeur dans la boite d'expédition (mais il reste cependant celui que j'utilise) et le destinataire en copie n'est que du texte, pas une adresse mail... dur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
Dim monMail As MailItem
Dim monDest As Recipient
 
Set monMail = Outlook.Application.ActiveInspector.CurrentItem
Set monDest = monMail.Recipients.Add("destinataire@copie.fr")
 
monDest.Type = olCC
 
 
End Sub

[Oliv-]

Salut,
J'avais fait pareil et en plus publié le code
Regarde ici je viens de le corriger et ca doit marcher !

Cette macro vient en fait remplacer le précédente qui ne fonctionnait pas correctement. ;-(((
Item.BCC =CCI ajoutait bien le CCI mais sans lui envoyer la copie !!

A mettre dans thisOutlookSession

Code :

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
65
Private Sub Application_ItemSend(ByVal Item As Object, _
 
Cancel As Boolean)
 
'By Oliv' 29/06/2007 pour Outlook 2003
 
Dim myRecipient As Outlook.Recipient
 
If Not Item.Class = olMail Then GoTo fin
 
Dim prompt As String
 
' ici renseigner le destinataire
 
cci = "MonDestinataire@sonDomaine.fr"
 
'commentez au choix l'option non voulue
 
'########################Option CCI############################
 
prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"
 
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
 
Set myRecipient = Item.Recipients.Add(cci)
 
myRecipient.Type = olBCC
 
myRecipient.Resolve
 
If myRecipient.Resolved = False Then
 
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
Cancel = True
End If
 
End If
 
'########################Option CC##############################
 
prompt = "Ajouter le cc " & cci & " à " & Item.Subject & "?"
 
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbYes Then
 
Set myRecipient = Item.Recipients.Add(cci)
 
myRecipient.Type = olCC
 
myRecipient.Resolve
 
If myRecipient.Resolved = False Then
 
MsgBox "L'adresse Email n'est pas correcte !", vbCritical, "Erreur"
 
Cancel = True
End If
 
End If
 
'#######################FIN#####################################
 
fin:
 
End Sub

Oliv'

[Labore]

Salut Oliv'

Alors là, tu m'épates. Tout marche à merveille
Je n'ai pas vu que tu avais déjà publié ce code... et je ne vois pas ce qui fait que le tiens marche et pas ceux qui précèdent
Mystères de l'informatique ?
Encore un très très grand merci,


Labore