Hi,
i've tried using the VBA script as below - but despite apparently "working" (the wait cursor shows for about 20 seconds) the layout for the existing contacts doesn't change, but if i set the same form as the default for a new contact, it does (so i know i've got the right form). I'm using O2016-32bit with the latest updates.
Sub ChangeMessageClass()
Set olNS = Application.GetNamespace("MAPI")
Set ContactsFolder = _
olNS.GetDefaultFolder(olFolderContacts)
Set ContactItems = ContactsFolder.Items
For Each Itm In ContactItems
Itm.MessageClass = "IPM.Contact.lizas"
Itm.Save
Next
End Sub
the source version of this script included a test to see if the MessageClass was already set to "IPM.Contact.lizas" but i removed it for simplicity's sake.
any ideas?
K
i've tried using the VBA script as below - but despite apparently "working" (the wait cursor shows for about 20 seconds) the layout for the existing contacts doesn't change, but if i set the same form as the default for a new contact, it does (so i know i've got the right form). I'm using O2016-32bit with the latest updates.
Sub ChangeMessageClass()
Set olNS = Application.GetNamespace("MAPI")
Set ContactsFolder = _
olNS.GetDefaultFolder(olFolderContacts)
Set ContactItems = ContactsFolder.Items
For Each Itm In ContactItems
Itm.MessageClass = "IPM.Contact.lizas"
Itm.Save
Next
End Sub
the source version of this script included a test to see if the MessageClass was already set to "IPM.Contact.lizas" but i removed it for simplicity's sake.
any ideas?
K