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