Automatisation champ Cci Outlook2003 [Résolu]

[mihai_be]

Bonjour à tous,

je souhaiterais savoir si c'est possible d'automatiser le champ Cci dans Outlook afin de ne pas omettre un oubli et de se faciliter les communications avec les mêmes personnes.

Thunderbird le permet, je ne comprends pas une option si nécessaire n'est pas disponible sous Outlook ?

Je vous remercie par avance.

[Dolphy35]

Salut,

A ma connaissance il n'y a pas d'option pour ce que tu veux faire. Par contre tu peux passer par du VBA pour cela :
Comment remplir le champ CC automatiquement lors de l'envoi d'un message ?


Dolphy

[mihai_be]

Merci, désolé de ne pas avoir consulté la FAQ avant de poster mon message.

j'ai trouvé le même code via Usenet, mais un simple copier-coller ne suffit pas..., pour le code, il faut modifier la première ligne de code ainsi (et de commenter le champ CC dans mon cas):

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
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 = "info@domaine.be"
 
'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

Le code fonctionne super bien, surtout après avoir lus ce thread, mais un seul binz, c'est l'avertissement s'affiche uniquement sur Outlook et non pas sur le nouveau message qu’on rédige, donc il faut revenir sur Outlook pour la confirmation.

Une solution à ce petit souci ?