Bonjour !
Premier message ça se fête !
Tout est possible avec les macros !
Voici ce qu'il faut faire, attention je tiens à preciser la source ! -> http://www.developpez.net/forums/s [...] p?t=365751
Dans la fenêtre principale de ton Outlook fait ALT+F11 (ça va ouvrir l'éditeur VBA) double clique à gauche sur "project 1" puis "microsoft office outlook object" puis sur "this outlook session" à droite une page blanche va apparaitre, colle ce code VBA, attention à renseigner l'adresse mail entre guillemets de ton destinataire en copie dans la variable cci (en orange dans le code ci dessous):
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 = "l'adresse mail de la personne à mettre en copie entre guillemets"
'########################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
Enregistre le tout et ferme l'éditeur
Au moment d'envoyer un message une fenetre apparaitra te demandant si tu veux mettre la personne en copie...
Cela te convient t'il ?
On peut tenter un peu de retouche sur le code pour ne pas poser la question (mais je pense que c'est pas mal de demander confirmation, dans le cas de l'envoi d'un message perso par exemple !)
A bientôt !