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

Résolu
Signaler
Messages postés
34
Date d'inscription
jeudi 31 mai 2007
Statut
Membre
Dernière intervention
31 mars 2011
-
Messages postés
34
Date d'inscription
jeudi 31 mai 2007
Statut
Membre
Dernière intervention
31 mars 2011
-
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

Messages postés
34
Date d'inscription
jeudi 31 mai 2007
Statut
Membre
Dernière intervention
31 mars 2011

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à
Messages postés
34
Date d'inscription
jeudi 31 mai 2007
Statut
Membre
Dernière intervention
31 mars 2011

Petite précision je travaille sur Outlook 2003