Action personnalisée OUTLOOK 2007

Question

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

babaillefr · Answer

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

Action personnalisée OUTLOOK 2007

1 réponse

Votre réponse

Discussions similaires