Envoi Email : destinataire + soi-même [Résolu]

[PhilC]

Bonjour à tous,
Je dois résoudre le problème suivant :
"Lors de l'envoi d'un Mail à un destinataire : envoyer également le même Mail à soi-même".
Il faut que ce soit automatique et systématique.
Il paraitrait que c'est possible!
Outlook version 2007.
D'avance merci à tout le monde.

[Dolphy35]

Salut,

Envoyé par PhilC

Bonjour à tous,
Je dois résoudre le problème suivant :
"Lors de l'envoi d'un Mail à un destinataire : envoyer également le même Mail à soi-même".
Il faut que ce soit automatique et systématique.
Il paraitrait que c'est possible!
Outlook version 2007.
D'avance merci à tout le monde.

petite question , cela te sers à quoi ?

Si c'est pour sauvegarder le mail envoyé, il t'est possible lors d'un envoi d'enregistrer ton message dans un autre dossier.

Dolphy

[Heureux-oli]

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
66
 
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

Voilà un exemple de code qui s'exécute lors de l'envoi d'un mail.

[PhilC]

Après une absence forcée de 10 jours, je reviens sur ma question.
Heureux-oli, je tiens infiniment à te remercier pour ta réponse qui me convient parfaitement. Je la mets en place dès maintenant auprès de la personne intéressée.
Encore merci et bonne journée à Toi.