Action personnalisée OUTLOOK 2007

Signaler
Messages postés
1
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
9 octobre 2007
-
Messages postés
1
Date d'inscription
mercredi 21 juin 2006
Statut
Membre
Dernière intervention
1 septembre 2010
-
Bonjour !

J'ai besoin d'un conseil d'un pro :

Je voudrai créer un VBA qui se lance lors de l'envoi de mes messages sous OUTLOOK 2007 (règle avec action personnalisée) afin de rajouter une personne en Cci automatiquement ! Outlook ne propose qu'une personne en Cc et ce n'est pas très pro !

Je n'arrive pas à faire le VBA (je ne sais que partir d'un nouvel objet mail) et je n'arrive pas  configurer l'éxécution de l'action  l'envoi de mes messages !

Merci d'avance  tous ceux qui contribueront à la résolution de ce pb !

Alexandre

1 réponse

Messages postés
1
Date d'inscription
mercredi 21 juin 2006
Statut
Membre
Dernière intervention
1 septembre 2010

Bonjour,
j'avais le même problème.
Arès de multiple rechecher, j'ai trouver ce bout de code à copier dans Visual Basic et surtout dans "ThisOutlookSession"




Private Sub Application_ItemSend(ByVal Item As Object, _
Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next

' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "someone@somewhere.dom"

Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If

Set objRecip = Nothing
End Sub