0

I'm using interrop to handle changing events in outlook so when a calandar item is chaged i can display a message.The problem is that it fire the event 3 times :s.

here is the code : 

Private Sub mCalendarItems_ItemChangeEvent(ByVal Item As NetOffice.COMObject) Handles                     mCalendarItems.ItemChangeEvent
           Dim i As outlook.AppointmentItem = Nothing
           i = DirectCast(Item, outlook.AppointmentItem) 
        If i IsNot Nothing Then
            MessageBox.Show("Vous venez de modifier la tâche " & i.Subject)
            Application.DoEvents()
         End If
    i = Nothing End Sub

Any help ?

Kara
  • 6,115
  • 16
  • 50
  • 57
Bouam
  • 484
  • 2
  • 10
  • Event fires 3 times for me as well, only saving once, event is also only registered once. – Kyle Aug 12 '13 at 18:30

1 Answers1

0

I gad the same problem, but found out it had nothing to do with the event handler. The reason for the multiple events were, that I have HotMail Connector installed and this will modify the Item two times when synchronizing.

Thomas
  • 8,397
  • 7
  • 29
  • 39