Doc kopieren und wie eine zusätzliche Kategorie hinzufügen?

Hallo zusammen,

ich schäme mich ja etwas für den komischen Code....
aber ich komme leider nicht weiter.
Ich möchte einen Agenten schreiben, der alle Adressen unserer IT-Orga-Adress-DB in mein names kopieren (wegen des Abgleichs mit einem PDA). Wie schaffe ich es, dass zu den vorhandenen Kategorien noch die Kategorie "IT-Orga_AdrBk" angehängt wird? Dieser Schrott, den ich da geschrieben habe funktioniert nämlich leider nicht.

'Alle Dokumente der Ansicht "People" werden in das persönliche Adressbuch kopiert 	'und mit der zusätzlichen Kategorie "IT-Orga_AdrBk" ausgestattet	Set view = itadrbuch.GetView("People")		Set doc = view.GetFirstDocument()	While Not(doc Is Nothing)		Set tmpdoc = doc		tmpdoc.Categories = doc.Categories + "IT-Orga_AdrBk" 		Call tmpdoc.Save( True, True, True )		Call tmpdoc.CopyToDatabase(adrbuch)		Set doc = view.GetNextDocument(doc)	Wend

Wenn ich das so schreibe, dann werden die bisherigen Kategorien gelöscht.

tmpdoc.Categories = "IT-Orga_AdrBk"

Wie schaffe ich es, dass diese Kategorie nur angehängt wird?

%EDIT Jetzt musste ich gerade feststellen, dass mir das komische Skript auch die Adressen in der Originaldatenbank verändert. DAS ist natürlich nicht so gedacht. - Wie kann ich das umgehen?

Grüße

Christian

Hallo diam,

vielen Dank für Deine Tips. Es funktioniert jetzt. In der Designer-Hilfe ging es auch um die items. Das hatte ich aber nicht so ganz gecheckt.

'Alle Dokumente der Ansicht "People" werden in das persönliche Adressbuch kopiert 
	'und mit der zusätzlichen Kategorie "IT-Orga_AdrBk" ausgestattet
	Set view = itadrbuch.GetView("People")	
	Set doc = view.GetFirstDocument()
	While Not(doc Is Nothing)
		Set tmpdoc = doc.CopyToDatabase(adrbuch)
		Set notesItem=tmpdoc.getFirstItem("Categories")
		Call notesItem.AppendToTextList("IT-Orga_AdrBk" )
		Call tmpdoc.save(True, True)
		Set doc = view.GetNextDocument(doc)
	Wend

Und jetzt lässt der Agent auch die Dokumente der anderen DB in Ruhe.

Grüße & vielen Dank noch mal

Christian