View Single Post
  #2  
Old March 19th 08, 07:46 PM posted to microsoft.public.outlook.program_forms
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default Add button to Outlook Toolbar to launch specific form

You can get a reference to the folder in code without selecting it, then
instantiate a specific form and display it using something like:

Dim objMail As Outlook.MailItem
Dim objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace

Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objMail = objInbox.Items.Add("IPM.Note.MyCustomFormName")
objMail.Display

Set objMail = Nothing
Set objInbox = Nothing
Set objNS = Nothing

You can access other folders by working through Folders collections in each
folder. i.e.
objMail.Folders("InboxSubFolder").Folders("InboxSu bFolderSubFolder")

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Jim" wrote:

Hello, I have a mailbox with some custom forms and I'd like to add a button
to the toolbar that would launch a specific form.

Can someone point me in the right direction as to how to accomplish this?

I've added a button to launch the select forms window but they still have to
change folders and select the correct form. I'm looking to automate this
with just a button click.

Thanks
Jim


Ads