J
Jerry
Has anyone noticed that when you publish a form in Outlook 2003, th
subfolders are not allowed to uses that custom form?
With Outlook 2000, using the same code, if I create a custom contact
then drag the contact to a subfolder under the outlook default contact
folder, when I bring it up it's still a custom form. However, unde
2003, after I drag the contact into a subfolder, the contact becomes
default contact item again, visually. The message class is still th
custom name.
I also noticed that under "Actions" on the outlook menubar, I do no
get the option to create a new custom form.
Help please.
This is effectively the code I use to publish the form. I got rid o
messages and some other lines of code but I think this should show th
important lines of code.
Set olNS = objApp.GetNamespace("MAPI")
olNS.Logon , , True, True
Set ofContactlist = olNS.GetDefaultFolder(olFolderContacts)
If Not objApp Is Nothing Then
'publish the contact form
Set objContactFormItem = _
objApp.CreateItemFromTemplate _
(INSTALLPATH & "TestReContact.oft")
Set objFormDesc = objContactFormItem.FormDescription
objFormDesc.name = "test"
objFormDesc.PublishForm olFolderRegistry, ofContactlist
endif
Thanks in advance,
Jerr
subfolders are not allowed to uses that custom form?
With Outlook 2000, using the same code, if I create a custom contact
then drag the contact to a subfolder under the outlook default contact
folder, when I bring it up it's still a custom form. However, unde
2003, after I drag the contact into a subfolder, the contact becomes
default contact item again, visually. The message class is still th
custom name.
I also noticed that under "Actions" on the outlook menubar, I do no
get the option to create a new custom form.
Help please.
This is effectively the code I use to publish the form. I got rid o
messages and some other lines of code but I think this should show th
important lines of code.
Set olNS = objApp.GetNamespace("MAPI")
olNS.Logon , , True, True
Set ofContactlist = olNS.GetDefaultFolder(olFolderContacts)
If Not objApp Is Nothing Then
'publish the contact form
Set objContactFormItem = _
objApp.CreateItemFromTemplate _
(INSTALLPATH & "TestReContact.oft")
Set objFormDesc = objContactFormItem.FormDescription
objFormDesc.name = "test"
objFormDesc.PublishForm olFolderRegistry, ofContactlist
endif
Thanks in advance,
Jerr