George Asatiani
Member
- OS Version(s)
- Windows
- Outlook version
- Outlook 2021 64 bit
- Email Account
- IMAP
Operating system:: Windows 10 Pro, 64 b
Outlook version: 2021
Email type or host: gika1717@gmail.com
Outlook version: 2021
Email type or host: gika1717@gmail.com
Hello.
I made a Custom Contact Form (named it "Contact"), published it nd tried to apply it to all existing Contacts:
And clicked “OK” button
Public Sub ChangeMessageClassForFolderItems()
Dim Items As Outlook.Items
Dim obj As Object
Dim OldClass$
Dim NewClass$
Dim i&
Set Items = Application.ActiveExplorer.CurrentFolder.Items
If Items.Count > 1 Then
OldClass = Items(1).MessageClass
NewClass = InputBox("Change MessageClass property of all items to: " _
, "Change MessageClass", OldClass)
If NewClass = "" Or LCase$(NewClass) = LCase$(OldClass) Then
Exit Sub
End If
For i = 1 To Items.Count
Set obj = Items(i)
obj.MessageClass = NewClass
obj.Save
Next
End If
End Sub
(My normal view for Contacts folder before changes was this:
So you see it has changed drastically.
So, dear audience: is there anybody who can help with this situation?
Well, written DETAILED guide would be good but if we exchange through e-mail, WhatsApp, or other interface where I could share my screen in order not to make mistakes would be much, much better,
Thanks in advance.
George
I made a Custom Contact Form (named it "Contact"), published it nd tried to apply it to all existing Contacts:
- First of all I named newly created Contact Form as "Contact"
- By right clicking "Contacts" folder in Outlook pane and clicking "Properties..." in opened window "Contacts properties" in opened window "When posting to this folder, use" in the field from drop-down I changed default "IPM.contact" to "Contact" i.e. indicated my Contact Form that I have designed.

And clicked “OK” button
- Then selected "inbox" in Outlook pane and afterwards again "Contacts" folder in Outlook pane.
- After that when I created a new contact it started to appeared in Custom Contact Form designed by me. But all other contacts (contacts that existed before) when clicked would open in old form (default IPM.contact form)
- After that I tried to apply Custom Contact Form (created by me) to existing contacts following these steps:
- While on Contacts folder in Outlook pane pressed Alt+F – “Macros” window opened with “ChangeMessageClass”. Then I clicked on “Run” button and “Microsoft Visual Basic for Applications” window opened. In this window, on left pane I choose “ThisOutlookSession” and pasted VBA code that was recommended on this link: Assign a Form to an Item - VBOffice
Public Sub ChangeMessageClassForFolderItems()
Dim Items As Outlook.Items
Dim obj As Object
Dim OldClass$
Dim NewClass$
Dim i&
Set Items = Application.ActiveExplorer.CurrentFolder.Items
If Items.Count > 1 Then
OldClass = Items(1).MessageClass
NewClass = InputBox("Change MessageClass property of all items to: " _
, "Change MessageClass", OldClass)
If NewClass = "" Or LCase$(NewClass) = LCase$(OldClass) Then
Exit Sub
End If
For i = 1 To Items.Count
Set obj = Items(i)
obj.MessageClass = NewClass
obj.Save
Next
End If
End Sub
- And here is disaster that arrived: say I am on Inbox (in Outlook’s left pane) and when I select “Contacts” folder this alert/window opens:

- After clicking there on “OK” button unusual and absolutely unacceptable/useless view of “Contacts” folder appears like this:

(My normal view for Contacts folder before changes was this:

So you see it has changed drastically.
- More than that: now, in newly emerged view when I click on any contact to open this kind of Contact card opens which has absolutely no data in it and therefore is USELESS.

- Now, in order to cope somehow with situation I tried several ways:
- Tried Online Repair
- Uninstalled and Reinstalled Outlook.
So, dear audience: is there anybody who can help with this situation?
Well, written DETAILED guide would be good but if we exchange through e-mail, WhatsApp, or other interface where I could share my screen in order not to make mistakes would be much, much better,
Thanks in advance.
George

