这个是GDC(Genero Desktop Client)所提供的功能,不罗嗦,直接上代码:
MAIN
DEFINE result,id INTEGER
DEFINE str STRING
#初始化模组
CALL ui.interface.frontcall("WinMail","Init",[],[id])
#设置邮件的内容
CALL ui.interface.frontcall("WinMail","SetBody",[id,"This mail send by WinMail via Genero"],[result])
#设置邮件主题
CALL ui.interface.frontcall("WinMail","SetSubject",[id,"Subject:Hello World!"],[result])
#设置邮件发件人
CALL ui.interface.frontcall("WinMail","SetFrom",[id,"andy","andy@mydomain.com"],[result])
#设置smtp服务器
CALL ui.interface.frontcall("WinMail", "SetSmtp", [id, "smtp.mydomain.com"], [result])
#设置收件者
CALL ui.Interface.frontCall("WinMail", "AddTo", [id, "paul", "paul@mydomain.com"], [result])
#设置抄送
CALL ui.Interface.frontCall("WinMail", "AddBCC", [id, "nancy", "nancy@163.com"], [result])
#添加附件
CALL ui.Interface.frontCall("WinMail", "AddAttachment", [id, "c:\\temp\\test.xls"], [result])
#透过smtp服务器发送
CALL ui.Interface.frontCall("WinMail", "SendMailSMTP", [id], [result])
IF result == TRUE THEN
DISPLAY "Message sent succesfuly"
ELSE
CALL ui.Interface.frontCall("WinMail", "GetError", [id], [str])
DISPLAY str
END IF
CALL ui.Interface.frontCall("WinMail", "Close", [id], [result])
END MAIN
在XP+GDC2.02.04下测试成功,但是尚有以下问题:
1.尝试在邮件主题和正文中书写汉字,用outlook客户端接收到的邮件显示为乱码
2.因为目前的大部分smpt服务器都会要求发送认证,所以此示例的邮件只可在本域内发送,不知道对于smpt认证,程序要如何处理?
针对以上问题,有这方面的达人请不吝指教,谢谢!