Send Methode

[Dija]

Hallo zusammen,

benötige einen Button in einer Ansicht der die Ausgewählten Dokumente versendet.

Dazu brauche ich aber auch die SendTo Methode...
weiss aber nicht wie diese funktioniert....

Kann mir jemand dabei helfen, oder hat wer ne Idee...

Gruss Dija

[Zimmi]

Hallo Dija,

folgender Vorschlag:

Dim ws as new notesuiworkspace
Dim uiview as notesuiview
Dim coll as notesdocumentcollection
Dim i as long
dim session as new notessession
dim db as notesdatabase
dim doc as notesdocument
dim recipients as string
recipients = inputbox("Geben Sie einen Namen ein")
set uiview = ws.currentview
set coll = uiview.documents

set db = session.currentdatabase
For i = 1 to coll.count
 set doc = coll.getnthdocument
 call doc.send(false, recipients)
 ' entweder du hast bereits ein SendTo-Feld in dem Document oder du holst dir die Namen aus einen im Dok enthaltenen Feld oder machst das über eine InpuBox.
Next

Hoffe, dass du damit was anfangen kannst ...
Zimmi

[CLI_Andreas_Schmidt]

Hi Ich weiss nicht wie fit du in lotus Script bist. Du kannst auch eine Collection über die unprozessed Document (mal in der Notes Hilfe gucken) bilden. Die Collection beinhaltet dann alle Dokumente, die in der Ansicht ein Häkchen haben.

Für das Versenden brauchst Du dann das SENDTO - Feld in der Maske in dem die Empfänger eingetragen müssen.

Viele Grüßé

Andreas Schmidt

http://www.lotus-schmidt.de