Hallo zusammen
Ich habe eine Datenbank in der Adressdaten verwaltet werden. Die Datenbank ist etwas umfangreicher als das names.nsf. Leider kann man aber nur das Names.nsf mit dem Handy synchronisieren. Also hab ich mir eine Funktion gebaut, die mir meine adressen aus der selfmade Datenbank in das persönliche names.nsf kopiert.
Das funktioniert soweit sehr gut. Allerdings synchronisiert mein "MobilePhoneExplorer" die neuen Adressen erst, wenn ich sie im names.nsf einmal geöffnet und neu gespeichert habe.
Was muss ich tun? Computewithform hab ich schon drinne..
For i = 1 To selcol.Count
Set seldoc = selcol.GetNthDocument(i)
Set doc = Nothing
Set doc = adrdb.CreateDocument
doc.form = "Kontakt"
If seldoc.form(0) = "Adresse" Then doc.Type = "Person"
If seldoc.form(0) = "Firma" Then doc.Type = "Company"
doc.firstname = seldoc.vorname(0)
doc.lastname = seldoc.name(0)
doc.title = seldoc.anrede(0)
doc.MailAddress = seldoc.email(0)
doc.CompanyName = seldoc.name2(0)
doc.JobTitle = seldoc.name5(0)
doc.OfficeStreetAddress = seldoc.AP_Strasse(0)
doc.OfficeCity = seldoc.AP_Ort(0)
docOfficeZip = seldoc.AP_PLZ(0)
doc.OfficeCountry = seldoc.AP_Land(0)
doc.OfficePhoneNumber = seldoc.AP_Tel(0)
doc.OfficeFaxPhoneNumber = seldoc.Fax(0)
doc.WebSite =seldoc.Homepage(0)
doc.Department = seldoc.Name4(0)
doc.StreetAddress = seldoc.AP_Strasse(0)
doc.City = seldoc.AP_Ort(0)
docZip = seldoc.AP_PLZ(0)
doc.Country = seldoc.AP_Land(0)
doc.PhoneNumber = seldoc.Telefon(0)
Call doc.ComputeWithForm(True,True)
Call Doc.Save(True, False, True)
Next
