Hallo!
Wir haben hier ein selbst erstelltes Firmeninternes Telefonbuch (kein Standardadressbuch) auf dem Server (wir haben nur einen).
Ich habe jetzt einen Agenten geschrieben, der die ausgewählten Einträge ins persönliche, lokale Adressbuch "kopieren" soll.
Wenn ich den Agenten auf meinem Rechner starte, läuft alles wunderbar. Wenn der Agent auf einer anderen Maschine läuft, passiert nix. ???
Hat jemand eine Idee, woran das liegen könnte? Anbei der Quelltext:
Sub Initialize
Dim ses As New NotesSession
Dim TelDB As NotesDatabase
Dim AdrDB As NotesDatabase
Dim col As NotesDocumentCollection
Dim Teldoc As NotesDocument
Dim Adrdoc As NotesDocument
Set TelDB = ses.CurrentDatabase
Set col = TelDB.UnprocessedDocuments
Set Teldoc = col.GetFirstDocument
Set AdrDB = ses.GetDatabase ("", "names.nsf", False)
Set Adrdoc = AdrDB.CreateDocument
While Not(Teldoc Is Nothing)
With Adrdoc
.Form = "Kontakt"
.Type = "Person"
.PhoneLabel_6 = "Kurzwahl aus Achim"
.FirstName = Teldoc.vorname
.LastName = Teldoc.name
.Title = Teldoc.titel
.OfficePhoneNumber = Teldoc.rufnummer
.OfficeFAXPhoneNumber = Teldoc.fax
.CellPhoneNumber = Teldoc.mobil
.PhoneNumber_6 = Teldoc.Kurzwmobil
.CompanyName = Teldoc.Unternehmen
.MailAdress = Teldoc.mail
End With
Call Adrdoc.Save (True, False)
Set Adrdoc = AdrDB.CreateDocument
Set Teldoc = col.GetNextDocument (Teldoc)
Wend
End Sub
Danke schonmal!!