Use this as a reference:

Dim objItems As Outlook.Items
Dim objItem As Outlook.MailItem
Dim intX As Integer

Set objItems = ActiveExplorer.Selection

If Not objItems Is Nothing Then
For intX = 1 To objItems.Count
If objItems.Item(intX).Class = olMail Then
Set objItem = objItems.Item(intX)
'You know have one MailItem object
End If
Next
End If

--
Eric Legault [MVP - Outlook]
MCDBA, MCTS (Messaging & Collaboration, SharePoint Infrastructure, MOSS 2007
& WSS 3.0 Application Development)
President
Collaborative Innovations
- Try Picture Attachments Wizard 2.0 For Microsoft Outlook -
- Take your SharePoint content offline -
- More info: http://www.collaborativeinnovations.ca -
Blog: http://blogs.officezealot.com/legault


"LuisE" wrote in message
...
Thanks Eric

Your best option is to prompt the user to select the item in a folder,
then
access ActiveExplorer.Selection to get the collection of selected items.

How would I do that?