Kontakt aus CRM ANwendung erstellen

[JürgenT]

Hallo,

unsere Anwender würden sich gerne aus einem Kundendokument der CRM-Anwendung einen Kontakt in Ihrem persönlichen Adressbuch erstellen.
Hierzu habe ich eine Aktionsschaltfläche angelegt, indem unten aufgeführtes Script ausgeführt wird.
Das Dokument wird erstellt, ist aber in der Ansicht Kontakte nicht sichtbar.
Unter Alle Dokumente finde ich den Kontakt, allerdings wird das Dokument hier ohne Name angezeigt.
Öffne ich das Dokument und speichere es ab, finde ich es auch korrekt in der Ansicht Kontakte.
Wie kann ich diese Aktualisierung aus meiner Aktion antriggern?

Wäre toll, wenn mir jemand helfen könnte.

Sub Click(Source As Button)
   Dim s As New notessession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim pdb As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim newdoc As NotesDocument
   
   Set db=s.CurrentDatabase
   Set uidoc=ws.CurrentDocument
   Set doc=uidoc.Document
   
   Set pdb=s.GetDatabase("","Testnames.nsf", False)
   Set newdoc=pdb.CreateDocument
   newdoc.Form="Person"
   newdoc.Lastname=doc.APName
   newdoc.Firstname=doc.APVorname
   newdoc.Birthday=doc.GebDat
   newdoc.CellPhoneNumber=doc.APTel_2
   newdoc.City=doc.PrivatOrt
   newdoc.CompanyName=doc.KundName
   newdoc.Department=doc.abteilung
   newdoc.email_1=doc.APMail
   newdoc.Mailadress=doc.APMail   
   newdoc.HomeEmail=doc.PrivatEmail
   newdoc.miscPhone1=doc.PrivatEmail
   newdoc.OfficeCity=doc.KundOrt
   newdoc.OfficeFaxPhoneNumber=doc.APFaxDurch
   newdoc.OfficePhoneNumber=doc.Durchwahl
   newdoc.OfficeZip=doc.KundPLZ
   newdoc.OfficeStreetAddress=doc.Kundstr
   newdoc.PhoneNumber=doc.APTel
   newdoc.PrimaryPhoneNumber=doc.Durchwahl
   newdoc.StreetAddress=doc.PrivatAnschrift
   newdoc.Title=doc.Titel
   newdoc.Zip=doc.PrivatPLZ
   
   Call newdoc.ComputeWithForm(True, False)
   Call newdoc.Save(True, False)
   Msgbox "Kontakt erstellt", ,16
   Call newdoc.ComputeWithForm(True, False)
   Call newdoc.Save(True, False)   
End Sub

[koehlerbv]

Schau Dir die Ansichtsauswahlformel der Contacts-View an, dann siehst Du sofort, welches Item Du schon mal nicht belegt hast.

Bernhard

PS: Und das sollte man eh immer machen, wenn man sich wundert, warum ein Dokument in einer Ansicht erscheint.

[JürgenT]

Super, manchmal kann es so einfach sein.

Vielen Dank für die schnelle Hilfe

[koehlerbv]

So isses - haben wir alle lernen müssen 

Bernhard