Personen von einem names zu einem anderen kopieren

[botschi]

Hallo,

ich habe ein Script gebaut, welches Personen und Gruppen von einem names.nsf zu einem anderen names.nsf kopiert.

An sich funktioniert das auch- bei 5 von 10 versuchen.
Ich bekomme hin und wieder den Fehler (mal bei einer Gruppe, mal bei einer Person):
"Notes-Fehler: Eini anderer Benutzer hat dieses Dokument zur gleichen Zeit geändert (names.nsf).

Greift Lotus mir dazwischen?
Das Data-Verzeichnis liegt (ENTGEGEN unserer Empfehlungen auf einem Netzlaufwerk).

Habt ihr sowas schon einmal gemacht und einen Tipp für mich?
Danke!

Matthias

EDIT:
Laut den Eigenschaften der Dokumente, wurden diese seit laaaanger Zeit nicht geändert.

[m3]

Du sprichst hoffentlich von der Names.nsf eines Clients und nicht von der am Server, oder?
Zeig mal den Code, da wirst Du wo 2x speichern.

[botschi]

Ja klar 

Sorry...

Matthias

[koehlerbv]

Es wäre schön, wenn Du ein paar nähere Angaben machen würdest:
Da Du vom NAMES.NSF und einem Netzlaufwerk sprichst, gehe ich von einem PERSNAB aus. Richtig?
Und wenn es dann noch etwas Code geben würde ...

Bernhard

[botschi]

Ich schäme mich für den gefrickelten Kot 
Egal...

Code

Sub Initialize
	
	Dim ziel As NotesDatabase
	Dim quelle As NotesDatabase
	Dim s As New NotesSession
	
	Dim zielpfad As String
	Dim quellpfad As String
	
	zielpfad = "P:\data\names.nsf"
	quellpfad = "P:\lotus\names.nsf"
	Print "Start"
'###########################	
	' ziel und quell-db finden
	Set ziel = s.GetDatabase("",zielpfad)
	If ziel Is Nothing Then
		Exit Sub
	End If
	
	Set quelle = s.GetDatabase("",quellpfad)
	If quelle Is Nothing Then
		Exit Sub	
	End If
'###########################
	Dim quellcoll As NotesViewEntryCollection
	Dim zielcoll As NotesViewEntryCollection
	Dim doc As NotesDocument
	Dim ndoc As NotesDocument
	Dim entry As NotesViewEntry
	Dim nentry As NotesViewEntry
	Dim personview As NotesView
	
	' alle doks in der ziel-db löschen, sowohl gruppen als auch kontakte
	' kontakte
	Set personview = ziel.GetView("People")
	Set zielcoll = personview.AllEntries
	If Not zielcoll.Count = 0 Then
		Call zielcoll.RemoveAll(True)
	End If
	Print "Kontakte im Ziel gelöscht"
	' gruppen
	Set personview = ziel.GetView("Groups")
	Set zielcoll = personview.AllEntries
	If Not zielcoll.Count = 0 Then
		Call zielcoll.RemoveAll(True)
	End If
	Print "Gruppen im Ziel gelöscht"
	Stop
	' alle doks aus der quelle in das ziel schieben
	Set personview = quelle.GetView("People")
	Set quellcoll = personview.AllEntries
	If quellcoll.Count = 0 Then
		Print "Es gibt keine Kontakte zu kopieren"
		Goto gruppen
	End If
	' anlegen
	Set entry = quellcoll.GetFirstEntry
	Set doc = entry.Document
	Do	
		Print "Kopiert Kontakt " & doc.lastname(0)
		Call doc.CopyToDatabase(ziel)		
		
		Set nentry = quellcoll.GetNextEntry(entry)
		If Not nentry Is Nothing Then
			Set entry = nentry
			Set ndoc = nentry.Document
			Set doc = ndoc
		Else
			Exit Do
		End If
	Loop Until doc Is Nothing
	
	Set doc = Nothing
	Set entry = Nothing
	
	Print "Fertig mit den Kontakten"	
	Stop
gruppen:
	Set personview = quelle.GetView("Groups")
	Set quellcoll = personview.AllEntries
	If quellcoll.Count = 0 Then
		Print "Es gibt keine Gruppen zu kopieren"
		Goto weiter
	End If
	Set entry = quellcoll.GetFirstEntry
	Set doc = entry.Document
	Do
		If doc.listname(0) = "LocalDomainServers" Or doc.listname(0) = "OtherDomainServers" Then
			Goto gr_weiter
		End If
		Print "Kopiert Gruppe " & doc.listname(0)
		Call doc.CopyToDatabase(ziel)		
gr_weiter:
		Set nentry = quellcoll.GetNextEntry(entry)
		If Not nentry Is Nothing Then
			Set entry = nentry
			Set ndoc = nentry.Document
			Set doc = ndoc
		Else
			Exit Do
		End If
	Loop Until doc Is Nothing
	
	Print "Fertig mit den Kontakten"	
	
	
	
weiter:
	Print "Fertig"
	Exit Sub
	
End Sub

Matthias

[m3]

Ich würde nach den View-Operationen ein "notesView.Refresh" spendieren.

CopyToDatabase liefert das neue Notes-Dokument zurück. Anstelle des "Call ..." würde ich den Rückgabewert auf "Is Nothing" überprüfen, ...
Dann weißt Du zumindest, wo(ran) er gescheitert ist.

[Glombi]

Soweit ich weiß soll das mit 8.5.2 eine Standardfunktion sein: "Sende Kontakt an andere User" oder sowas in der Art. Vielleicht ist dann damit der "gefrikelte Kot" nicht mehr nötig.

[botschi]

Auf die neue Version können wir nicht warten...
Ich habs jetzt mit CopyAllItmes gemacht. Funktioniert einwandfrei. Bei 10 versuchen, 10 Treffer.

Ist auch nur eine einmalige Sache bei 50 Usern. Ich schicke denen ne Mail mit dem Button und fertig.
Keine dauerhafte automatische Lösung.
Denn hätte ich auch mehr Herzblut investiert 

Danke für die Tipps!


Matthias