如何用VFP收发电子邮件?
本人希望将几个不大的表文件、*.mem、*.fpt文件打包,用电子邮件的方式与远方进行数据交换,该如何实现。请高手指点。
有多种方法,如果用户电脑中安装了Outlook或其他邮件管理软件,也可以采取下列代码发送邮件:
thisform.OleMsess.signon &&打开电子邮件句柄
thisform.olemmess.sessionid = thisform.olemsess.sessionid &&将句柄传给邮件编辑程序
thisform. &&构成一个消息
thisform.olemmess.msgnotetext = "邮件内容"
thisform.olemmess.msgsubject = "邮件标题"
thisform.olemmess.MsgIndex = -1
thisform.olemmess.RecipAddress = "邮箱地址"
thisform.olemmess.send() &&发送邮件
thisform.olemsess.signoff &&关闭电子邮件句柄