Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Dija am 20.08.02 - 11:17:34

Titel: Send Methode
Beitrag von: Dija am 20.08.02 - 11:17:34
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
Titel: Re: Send Methode
Beitrag von: Zimmi am 20.08.02 - 12:23:59
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
Titel: Re: Send Methode
Beitrag von: CLI_Andreas_Schmidt am 21.08.02 - 14:36:59
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 8)