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.
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