Set it as a macro and run it periodically to make sure you Outlook contacts have the CRM Parent Account name set

Sub SyncCRMCompanyName()
Dim objApp As Application
Dim objNS As NameSpace
Dim objContacts As MAPIFolder
Dim colItems As Items
Dim objContact As ContactItem
Dim strParentAcct As String
Dim i As Integer

Set objApp = CreateObject(”Outlook.Application”)
Set objNS = objApp.GetNamespace(”MAPI”)
Set objContacts = objNS.GetDefaultFolder(olFolderContacts)
i = 0

Set colItems = objContacts.Items
For Each objContact In colItems
strParentAcct = “”
If objContact.CompanyName = “” Then
If objContact.UserProperties.Count > 0 Then
strParentAcct = objContact.UserProperties.Item(”Parent Account”)
If strParentAcct “” Or objContact.CompanyName strParentAcct Then
Rem Answer = MsgBox(strParentAcct, vbOKCancel)
objContact.CompanyName = strParentAcct
objContact.Save
i = i + 1
End If
End If
End If

Next
MsgBox (”All done: ” & i & ” records updated”)
End Sub