Lotus Script 代理发送邮件问题

[lihaifeng0412]

我通过Lotus Script 代理设计一个发送邮件的脚本。手动执行脚本邮件都可以正常发送，但是通过代理自动执行时候就没法正常发送，高人请问什么原因，谢谢。

Sub Initialize

Dim s As New NotesSession
Dim db As NotesDatabase
Set db=s.CurrentDatabase

Dim view As NotesView

Dim doc As NotesDocument

Dim mailDoc As NotesDocument

Set mailDoc = New NotesDocument( db )


With mailDoc
Call .ReplaceItemValue("Form", "memo")

Call .ReplaceItemValue("Principal","admin<[e-mail]>")

Call .ReplaceItemValue("SendTo","[e-mail]")

Call .ReplaceItemValue("Subject","ceshi")
End With
Dim rtItem As New NotesRichTextItem(mailDoc,"Body")
Call rtItem.AppendText("ceshi")
Call rtitem.AddNewLine( 1 )

Call mailDoc.Send(True)

End Sub

执行代理时候总是有问题，但是手动发送正常

[lihaifeng0412]

这个问题没人知道吗