Contact forms in Outlook......and some VBA

[Andy S]

Having recently created a new form for use in the Public Folder 'Central Contacts', the old details need to to be transferred to the new forms.
I acquired automation code that will do this, but I am unsure how to implement it.....

Can anyone help?

Here is the code:

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.Support" Then

Itm.MessageClass = "IPM.Contact.Support"

Itm.Save

End If

Next

End Sub



Thanks

~ANDY~