Contacts showing Name and Company Name, even when 'file as' is the name only

Question

We are running into a strange issue someone may provide some light on, I've researched quite a bit online with no success, and may soon be calling Microsoft on this one. Sometime earlier this year we installed Exchange 2010 Update rollup 4, then UR5, after
that when you create new contacts in outlook 2010, no matter how you choose to 'file as', when you pull up the contact in the address book it always contains the company name after the persons name. It doesn't seem to matter how you file the contact, it always
appears with the company name in the name field in the address book (and therefore pulls that into any mail merge).
anyone else run into this issue or know how to fix it? I included screenshots below....
thanks for your help all.
here is the contact in address book, showing company name no matter how its filed.

Answer 1

Hi,
I can reproduce the same issue here. Here is what I did to fix this:
1. Open a problematic contact.
2. In the Full Name field, type a space and then click Save & Close button.
3. Now, go to Address Book, you will find that the company name is removed.
Based on my deep research, I find a macro can be used to update the Full Name info, when I run the macro, the company name is removed from all problematic contacts in Address Book. See the code sample:
Sub UpdateContactFullName()
Dim FileAsFormat As String
Dim CurrentFolder As Outlook.Folder
Dim objItem As Object
Dim objItems As Object
Dim objContact As Outlook.ContactItem
Set CurrentFolder = Application.ActiveExplorer.CurrentFolder
If CurrentFolder.DefaultItemType = Outlook.olContactItem Then
Result = MsgBox("Update the Full Name field for all " & _
"your contacts according to your default " & _
"Full Name settings in Outlook?", _
vbQuestion + vbYesNo, "Update Full Name field")
If Result = vbYes Then
Set objItems = CurrentFolder.Items
For Each objItem In objItems
If objItem.Class = Outlook.olContact Then
Set objContact = objItem
'We need to touch something in one of the name
'field to force a rewrite of the Full Name field
'according to the default Full Name settings.
objContact.FirstName = objContact.FirstName
objContact.Save
End If
Next
Result = MsgBox("Finished updating the Full Name format of all contacts." _
, vbInformation, "Done!")
End If
Else
Result = MsgBox("Please select a Contacts folder." _
, vbCritical, "Select Contacts folder")
End If
Set CurrentFolder = Nothing
Set objContact = Nothing
End Sub
Reference link:
http://www.howto-outlook.com/howto/contactnameformat.htm
Hope this helps.
Regards,
Steve Fan
TechNet Community Support
It's recommended to download and install
Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
programs.