Changing Forms

[Paul]

I have imported my contacts from outlook 2002 to 2003. I
have also created a customs form, which I would like to
use with my contacts. The contact have been imported in a
new folder called MANConants, this is not the defaults
contacts folder. The new form is called MAN Members
Contacts. I have tried the following script but it did not
work. But it did not work. What do I need to do

Paul


Sub ChangeMessageClass()
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set ContactsFolder = _
olNS.GetDefaultFolder(olFolderContacts)
Set ContactItems = ContactsFolder.Items
For Each Itm In ContactItems
If Itm.MessageClass <> "IPM.Contact.MAN Members Form"
Then
Itm.MessageClass = "IPM.Contact.MAN Members Form"
Itm.Save
End If
Next
End Sub

 

[Sue Mosher [MVP]]

To get a non-default folder, you need to walk the folder hierarchy using the
Folders collections or use a function that does that for you. See
http://www.slipstick.com/dev/code/getfolder.htm