该程序是什么意思，请给我讲讲

jiajia8218

Dim session_send As New NotesSession
        Dim db_send As NotesDatabase
        Dim doc_send As NotesDocument
        Dim body_send As String
        Set db_send = session_send.CurrentDatabase
        Set doc_send = New NotesDocument( db_send )
        doc_send.Form = "Memo"
        doc_send.Subject="汇款通知"
        Dim text As String,fileNum As Integer
        fileNum%=Freefile()
        Dim i As Integer
        Dim num As Integer
        Dim body As String
        i=0
        Open "d:\发送.txt" For Input As fileNum%
        Do While Not Eof(fileNum%)
                Line Input #fileNum%, text$
                i=i+1
        Loop
        Close fileNum%
       
        Open "d:\发送.txt" For Input As fileNum%
        For num%=0 To i-1
                Line Input #fileNum%, text$
               
                If Trim(text$)="START" Then num%=num%+1:Line Input #fileNum%,text$:body="":If Trim(text$)="" Then doc_send.Sendto="公司汇款通知" Else doc_send.Sendto=text$
                If Trim(text$)="END" Then doc_send.body=body:Call doc_send.Send(False) Else body=body+text$+Chr(13)  
               
        Next num%
        Close fileNum%

yleagle

D:\发送.txt的格式如下:
START
接收人的邮件地址(若为空行则为默认的"公司汇款通知")
邮件正文
END
程序的提取收件人信息，然后提取邮件正文，遇到关键字"END"后发送邮件。

youcanstopme

原帖由 yleagle 于 2008-7-21 13:00 发表
D:\发送.txt的格式如下:
START
接收人的邮件地址(若为空行则为默认的"公司汇款通知"
邮件正文
END
程序的提取收件人信息，然后提取邮件正文，遇到关键字"END"后发送邮件。

同意楼上的