Red Hat NETSCAPE MANAGEMENT SYSTEM 4.5 - COMMAND-LINE Manuel d'utilisateur télécharger pdf (Page 119)

 Click New Agent.

set the Name field to "replyto"

Add the following Lotusscript code to the agent:

Sub Initialize

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Set db = session.CurrentDatabase

Set view = db.getView("$Sent")

Set doc = view.GetFirstDocument()

While Not(doc Is Nothing)

Call doc.PutInFolder("$inbox")

Set doc = view.GetNextDocument(doc)

Wend

End Sub

119

1 2 ... 114 115 116 117 118 119 120 121 122 123 124 ... 127 128

Pas de commentaire

Red Hat NETSCAPE MANAGEMENT SYSTEM 4.5 - COMMAND-LINE Manuel d'utilisateur Page 119