pubnames.ntf

[mgeidl]

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

[Glombi]

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?

[mgeidl]

Hi Andreas!

Supi, danke hat funktioniert!!

lg
Marietta

[mgeidl]

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

[Axel]

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

[mgeidl]

Danke @All!

Marietta