这是我的程序中发邮件的代码,希望能对楼主有参考价值。
thisform.OleMsess.signon &&打开电子邮件句柄
thisform.olemmess.sessionid = thisform.olemsess.sessionid &&将句柄传给邮件编辑程序
thisform. &&构成一个消息
thisform.olemmess.msgnotetext = "用户名称:" + tsmc + chr(13) + chr(10) + "软件序号:" + dsid + chr(13) + chr(10) + "联系人:" + tsjb + chr(13) + chr(10);
+ "反馈内容:" + thisform.edit1.value
&&组成邮件内容
thisform.olemmess.msgsubject = "《QS仓储管理》软件信息反馈" &&指定邮件标题
thisform.olemmess.MsgIndex = -1
thisform.olemmess.RecipAddress = "qs.sbg@
thisform.olemmess.send() &&发送邮件