在Visual FoxPro中使用Lotus Notes发送邮件

最近想做一个通过Louts发送邮件的小东西，从网上找了半天，什么微软的OutLook Connector， IBM的Domino Access for Microsoft Outlook，都太烦琐。今天发现一个VB的COM方法，改成VFP的。我的邮件数据库是在远程服务器上，按照原文无法打开邮件数据库，只得改成bookmark.nsf，现在测试发送是成功。有需要的自行再测试吧。

* 函数功能：发送带附件的邮件给recipient变量中指定的收件人
* 运行环境：安装并配置好Notes客户端，并且已经登录到Notes，已经测试Notes 5和Notes 7
* SendMail(cSubject As String, cAttachment As String, cRecipient As String, cCopyToRec AS String, cBodyText)
* 执行成功返回.T.，失败返回.F.

* SendMail("我的测试邮件标题","d:\testfile.txt","zhj/sd/ccb","","我的测试邮件内容") &&附件为d:\testfile.txt
PARAMETERS cSubject As String, cAttachment As String, cRecipient As String, cCopyToRec AS String, cBodyText As String
* 设置对象属性
LOCAL oMaildb As Object, oMailDoc As Object, oAttachME As Object, oSession As Object,oEmbedObj As Object, lIsRight As Logical
lIsRight = .T.
TRY
oSession = CREATEOBJECT("Notes.NotesSession") &&创建Notes会话
oMaildb=oSession.GetDatabase("","bookmark.nsf") &&打开一个数据库
IF oMaildb.ISOPEN = .F. &&判断已经打开
oMaildb.OPENMAIL()
ENDIF
* 创建新邮件
oMailDoc = oMaildb.CREATEDOCUMENT()
oMailDoc.Form = "Memo"
oMailDoc.sendto = cRecipient &&收件人
oMailDoc.copyto = cCopyToRec &&抄送
oMailDoc.Subject = cSubject &&邮件标题
oMailDoc.Body = cBodyText &&邮件内容
oMailDoc.PostedDate=DTOC(DATE()) &&发送日期
* 添加附件
IF NOT EMPTY(cAttachment)
oAttachME = oMailDoc.CREATERICHTEXTITEM("cAttachment")
oEmbedObj = oAttachME.EmbedObject(1454, "", cAttachment, "attachment")
ENDIF
* 发送文档
oMailDoc.SEND(0)
CATCH
lIsRight = .F.
ENDTRY
RELEASE oMaildb, oMailDoc, oAttachME, oSession, oEmbedObj
RETURN lIsRight