Übergeordnete Firma im Outlook Kontakt anzeigen
Ich höre immer wieder die selbe Frage, “Warum sehe ich in meinen Outlook Kontakten den Firmennamen nicht?”
Tja, das hat Microsoft nicht ganz durchdacht, doch es gibt mittlerweile schon einige Lösung, hier ist nun aber, meiner Meinung nach, die beste.
Was ja eigentlich nicht ganz verständlich ist, warum hier Microsoft so geschlampt hat, den die Daten werden sehr wohl mit synchronisiert, nur nicht angezeigt, wenn man sich im
KontaktForumular eines CRM Kontakts einmal alle Felder einblendet dann sieht man das die Firma unter dem Punkt Parent Account steht.
Um jetzt diese Feld anzuzeigen, gabs bisher auf der Seite “Gotdotnet” eine VB Makro, was den Inhalt aus diesem Feld ins Firmen Feld des Outlook Kontakts kopierte, ich hatte aber
mit diesem Makro keine guten Erfahrung, also hier nun eine andere Lösung.
Man wechselt in Kontakt, und in seine favorisierte Ansicht, bei mir “Adresskarten mit Details” öffnet den Punkt “Ansicht-Aktuelle Ansicht-Aktuelle Ansicht anpassen”
Danach öffnet sich folgendes Fenster
Jetzt ein Klick auf den Punkt “Felder”
Hier müssen wir nun ein neues Feld anlegen, also mit Klick auf “Neues Feld…“ geht’s weiter.
Das folgende Fenster mit den folgenden Daten befüllen.
Name: Parent Account
Typ:Text
Format: Text
Das Feld jetzt noch von ganz unten nach oben holen damits richtig angezeigt wird
So das wars, nun wird auch die Firma des CRM Kontakts in Outlook angezeigt.
Viel Spaß beim probieren.
on 24. September 2007 at 4:46
Here’s the code to fix the problem:
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