Outlook 2003 Event

[ck]

Hi all,

I am trying to get contact item information when user moves the particular
contact item to another folder. I have checked in MSDN library for the list
of event in Outlook 2003. The closest i can get is the ItemRemove event.

Public WithEvents myOlItems As Outlook.Items

Private Sub myOlItems_ItemRemove()
'Do something here
End Sub

The problem is that ItemRemove event does not have any parameter. Do you
know any event that work like ItemRemove event and have Item as parameter.

Thanks.

 

[Michael Bauer [MVP - Outlook]]

Additionally you need to track the SelectionChange event, which tells you
what item(s) is/are selected. If you move or delete the last item from a
folder you don't get ItemRemove but only SelectionChange.

--
Best regards
Michael Bauer - MVP Outlook
Synchronize Outlook Categories:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Wed, 16 Jan 2008 19:53:01 -0800 schrieb ck:

 

[ck]

Michael,

Thanks for the reply. I have looked at the SelectionChange event. I can get
the selected folder but not the selected item when i select one of the
contact item. Am I getting this correct? Do you have any example on how it is
done? I am kind of lost here.

 

[ck]

Thanks Michael!

Well, i managed to get the contact item by using this piece of code:

Private Sub myOlExp_SelectionChange()
Dim myOlItems As Outlook.Items
Dim myOlContactItem As Outlook.contactItem
Dim objSelected As Object

If myOlExp.Selection.Count > 0 Then
Set objSelected = Me.myOlExp.Selection.Item(1)
If (TypeOf objSelected Is Outlook.contactItem) Then
Dim contactItem As Outlook.contactItem
Set contactItem = objSelected
End If
End Sub