Агент по приходу почты

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Set Doc = New NotesDocument (db)
doc.Form = "Memo"

doc.SendTo = "ххх@ххх.com.ua"
doc.Subject = "qqq"
Call doc.Send( False)
End Sub

    документ, который отправляем
Dim doc As NotesDocument
входящий документ
Dim doc2 As NotesDocument
Dim collection As NotesDocumentCollection

Set db = session.CurrentDatabase
Set doc = New NotesDocument (db)

Set collection = db.UnprocessedDocuments
Set doc2 = collection.GetFirstDocument ()

While Not (doc2 Is Nothyng)
If (doc2.GetItemValue("Form")(0) = "TaskNotice" ) Then
doc.SendTo = "ххх@ххххх.com.ua"
doc.Subject = "iii"
Call doc.Send( False)
End If

Set doc2 = collection.GetNextDocument (doc2)
Call session.UpdateProcessedDoc(doc2)
Wend