Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: mgeidl am 25.07.03 - 08:09:06

Titel: pubnames.ntf
Beitrag von: mgeidl am 25.07.03 - 08:09:06

Guten Morgen!

Ich hab eine Anforderung von unserem CIO erhalten, deshalb meine Frage:

Kann der "Copy to personal Addressbook"-Agent in der pubnames.ntf dahingehend verändert werden, dass eine Kategorie (z.b. NAB) mit übergeben wird????

lg
Marietta

Titel: Re:pubnames.ntf
Beitrag von: Glombi am 25.07.03 - 08:35:56

Hallo,
das kannst Du wie folgt machen:
Öffne den Agenten "Copy to Personal Address Book" im Designer und sieh Dir die Sub "ProcessDocument" an. Dort gibt es 2x folgenden Code:

Set destnote= sourcenote.CopyToDatabase(destdb)
Call destnote.RemoveItem("MessageStorage")
DocsCopied = DocsCopied + 1

Dahinter dann noch folgendes einfügen:
destnote.Categories = "NAB"          'Setze die Kategorie
call destnote.Save(true,true,true)

Das sollte gehen.
Andreas

P.S: Wenn ich das richtig sehe, ist in der Originalformel ein Fehler, denn es fehlt call destnote.Save(true,true,true). Daher ist
Call destnote.RemoveItem("MessageStorage")
eigentlich sinnlos, oder?

Titel: Re:pubnames.ntf
Beitrag von: mgeidl am 25.07.03 - 08:48:42

Hi Andreas!

Supi, danke hat funktioniert!!

lg
Marietta

Titel: Re:pubnames.ntf
Beitrag von: mgeidl am 25.07.03 - 12:09:40

So, wie immer gibt man einem den kleinen Finger, will er die ganze Hand!!

Ist es nun auch möglich, diesen Agent zu einer Eingabeaufforderung zu bewegen, dass man die Kategorie händisch eingeben kann??

lg
Marietta

Titel: Re:pubnames.ntf
Beitrag von: Axel am 25.07.03 - 12:39:39

Hi,

kein Problem.

Dim strCategorie As String

strCategorie = InputBox$("Bitte geben Sie die Kategorie ein.")
destnote.Categories = strCategorie          'Setze die Kategorie
call destnote.Save(true,true,true)

Axel

Titel: Re:pubnames.ntf
Beitrag von: mgeidl am 28.07.03 - 07:38:01

Danke @All!

Marietta