Hello,
I wrote an auto forward e-mail agent, after new mail arrived, it would run the following script tto auto send the mail to another mail box. But tthe result is a little bit strange, when open the received mail, the mail size changed, it’s bigger than the original one. And lotus notes will popup the message box and shows “A stored form can’t contain computed subform”. I don’t know the reason. Anyone can help me?
Declarations
Dim session As NotesSession
Dim DBAutotest As NotesDatabase
Dim dcunprocessed As Notesdocumentcollection
Dim docSend As Notesdocument
Sub Initialize
Set session = New notesSession
Set DBAutoTest = session.CurrentDatabase
Set dcunprocessed = DBAutoTest.UnprocessedDocuments
Set docSend = dcunprocessed.getfirstdocument
While Not docSend Is Nothing
Call docSend.Send(True,"jianxin@SMLN")
Set docSend = dcunprocessed.getnextdocument(docSend)
Wend
End Sub