sendemail.prg

来自「进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.」· PRG 代码 · 共 21 行

LOCAL oMAPISess AS MSMAPI.MAPISession.1,oMAPIMess AS MSMAPI.MAPIMessages.1
oMAPISess=NEWOBJECT("MSMAPI.MAPISession.1")
oMAPIMess=NEWOBJECT("MSMAPI.MAPIMessages.1")
cError=FILETOSTR("ErrorLog.txt")
WITH oMAPISess
    .LogonUI=.F.
    .DownLoadMail=.F.        &&启动会话时不接收邮件
    .SignOn()                &&启动会话
ENDWITH 

WITH oMAPIMess
    .SessionID=oMAPISess.SessionID
    .MsgIndex=-1
    .Compose()               &&生成消息
    .RecipDisplayName="[e-mail]"           &&指定要发送到的邮箱地址
    .MsgSubject="[反馈]进销存管理系统程序错误"  &&邮件的主题
    .MsgNoteText=cError      &&邮件的正文
    .Send(0)                 &&直接发送
ENDWITH 
RELEASE oMAPISess,oMAPIMess  &&删除对象