There is no way to access the Insert Item dialog through the Outlook Object
Model or any other API, including Redemption You can try the VBA SendKeys
statement, but good luck getting the keystrokes right if it works at all (it
rarely does with modal dialogs).

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.

--
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
...
I would like to prompt the "Insert Item" form in Excel and used the
selected
item as a variable
All I have is the following code for Outlook that prompts a “Select
Folder”
window. I know I have to create the reference to the SafeItem but other
than
that I’m stuck.

Set appOutlook = CreateObject("Outlook.Application")
appOutlook.Session.Logon
Set nms = appOutlook.GetNamespace("MAPI")
Set fld = nms.PickFolder


Thanks in advance