VBA Outlook : execution d'une fonction à la création d'un contact

Résolu
Darktruff Messages postés 34 Date d'inscription jeudi 31 mai 2007 Statut Membre Dernière intervention 31 mars 2011 - 30 mars 2011 à 17:43
Darktruff Messages postés 34 Date d'inscription jeudi 31 mai 2007 Statut Membre Dernière intervention 31 mars 2011 - 31 mars 2011 à 12:59
Bonjour!!
Je voudrais savoir si il est possible d’exécution une fonction a la création ou modification d'un contact.
Cordialement,
Darktruff

2 réponses

Darktruff Messages postés 34 Date d'inscription jeudi 31 mai 2007 Statut Membre Dernière intervention 31 mars 2011
31 mars 2011 à 12:59
J'ai trouvé la solution sur la bonne vielle doc VBA sur le site msdn . Voici mon implémentation :

Creéation d'un module de classe public


Dim dbManager As dbManager
Public WithEvents ContactAdded As Outlook.Items
Public WithEvents ContactUpdated As Outlook.Items

Public Sub Initialize_handler()
    Set ContactAdded = ThisOutlookSession.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
    Set ContactUpdated = ThisOutlookSession.Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
End Sub

Private Sub ContactAdded_ItemAdd(ByVal Item As Object)
    Set dbManager = New dbManager
    dbManager.AddContactToDataBase Item
    Set dbManager = Nothing
End Sub

Private Sub ContactUpdated_ItemChange(ByVal Item As Object)
    Set dbManager = New dbManager
    dbManager.UpdateContactToDataBase Item
    Set dbManager = Nothing
End Sub



Au moment du startup :


Public cel As New ContactEventListener

Private Sub Application_Startup()
    cel.Initialize_handler
End Sub



Voilà
3
Darktruff Messages postés 34 Date d'inscription jeudi 31 mai 2007 Statut Membre Dernière intervention 31 mars 2011
30 mars 2011 à 17:44
Petite précision je travaille sur Outlook 2003
0