Remplir le Champ CCi sur envoi de mail

**stephane010** · 17/10/2015, 13h59

Bonjour, ( suite à la discussion : http://www.developpez.net/forums/d36...-sous-outlook/)

Mes excuses par avance car je suis très novice en la matière, mais pour moi cela ne fonctionne pas.
Pas de mail en CCI, ... ne se passe rien en fait.

Est-ce parce que j’utilise Outlook 2010 ?

Merci d'avance.

**SfJ5Rpw8** · 17/10/2015, 14h07

Bonjour,

met ton adaptation du code sur le forum entre balises [code] [/code]

**stephane010** · 17/10/2015, 14h21

J'ai repris basiquement votre dernier post du 16/07/2015 en remplacant "xxx@yyy.zzz" par l'adresse mail que je suis utiliser:

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
 
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 = "xxx@yyy.zzz"
 
    'commentez au choix l'option non voulue
 
    '########################Option CCI############################
 
    prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?"
dim reponse
reponse= MsgBox(prompt, vbYesNoCancel + vbQuestion, "Sample") 
 
If reponse= vbCancel Then
Cancel = True
Exit Sub
 
 
    ElseIf reponse = 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
 
fin:
 
End Sub

**SfJ5Rpw8** · 17/10/2015, 16h13

et il se passe quoi à l'exécution...?

**stephane010** · 17/10/2015, 17h31

en fait, il ne se passe rien du tout et je n'ai pas de mail en cci

**SfJ5Rpw8** · 17/10/2015, 17h42

Rajoute un "stop" dans le code envoi un mail et exécute pas à pas le code en actionnant la touche F8 voir si le celui-ci se déroule bien ..

Code :

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

1
2
3
4
5
6
7
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'By Oliv' 29/06/2007 pour Outlook 2003
   Dim myRecipient As Outlook.Recipient
   stop ' ---------------------->>>>>>>>> ACTIONNE F8 pour effectuer un Pas à Pas , examine l'état des diverses variables grâce à la bulle apparaissant lorsque tu passe le curseur sur une variable
    If Not Item.Class = olMail Then GoTo fin
 
(...)

**stephane010** · 17/10/2015, 19h42

j'ai suivi la procédure F8 après envoi du mail

une fois la ligne " prompt = "Ajouter le cci " & cci & " à " & Item.Subject & "?" " en jaune, j'ai tapé F8 et une fenêtre s'est ouverte pour me proposer de mettre mon adresse mail en cci,
j'ai fait ok et le mail est parti avec l'adresse en cci