Reverting to default outlook contact form

Status
Not open for further replies.

nmokri

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
I created a custom contact form which I no longer wish to use. I want to go back to the standard outlook 2010 contact form. However, I can not find the custom form ai created to delete it and I need to know what will happen to the contacts I have created using the custom form? I would appreciate any advice.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
if the form is missing, they will use the default but complain they can't find it first. See change message class for a utility or a macro to change the message class to ipm.contact after you change everything back to ipm.contact you can remove the form.
 

nmokri

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Diane,

Thanks for the prompt response. Unfortunately the link to DocMessageClass does not work and I have no idea how to write code for micros. I did find the following posted micro which I suppose can be used to revert to standard form, but still not sure what changes to make to this macro to do what I need it to do. I figured that the values in quotations are the ones needed to be changed, but after user name I am lost. the form I created is "IPM.Contact.Custom Contact Form". More help please.

[h=2]Re: How to Set Existing Contacts to Custom Form[/h]
Okay. Here is the code to fix the problem. Create a macro in Outlook (under the Developer tab). Please the following code. Run the code once. It resets all existing contacts in the selected folder to the custom form.

Sub ChangeMessageClass()

UName = Environ("UserName")

Set olNS = Application.GetNamespace("MAPI")

Set ContactsFolder = olNS.Folders("Public Folders - " + UName + "@goodnewsjail.org")

Set ContactsFolder = ContactsFolder.Folders("All Public Folders")

Set ContactsFolder = ContactsFolder.Folders("Good News Contacts")

'Set ContactsFolder = _

olNS.GetDefaultFolder(olFolderContacts)

Set ContactItems = ContactsFolder.Items

For Each Itm In ContactItems

If Itm.MessageClass = "IPM.Contact" Then

Itm.MessageClass = "IPM.Contact.Good News Contact"

Itm.Save

End If

Next

End Sub​

 

larry

Senior Member
Outlook version
Outlook 2010 64 bit
Email Account
Exchange Server
it looks like they changed their website from php to html - Docmesssageclass url is http://www.publicshareware.com/public-share-outlook-utilities.html

Why not use the first macro on the page? ChangeContactMessageClass. You just need to change this line:

NewMC = "IPM.Contact"

Open the contacts folder before running the macro (it runs on the current folder).
 

nmokri

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Larry,

Thanks. It worked. The contacts are back to standard display. However, when view is set to LIST, the icon for the contacts with custom display did not change and still shows a sticky note with a blue pin. Not that it matters a whole lot, but is there a way to change that.

I have tried deleting the Custom display form but that option is not available either. Any suggestions?
 
Status
Not open for further replies.
Top