以下的代码就可以顺利地发送电子邮件。供楼主参考!
thisform.OleMsess.signon &&打开电子邮件句柄
thisform.olemmess.sessionid = thisform.olemsess.sessionid &&将句柄传给邮件编辑程序
thisform. &&构成一个消息
thisform.olemmess.msgnotetext = "用户名称:"+ "软件序号:"+ "联系人:" + "反馈内容:" + thisform.edit1.value
&&组成邮件内容
thisform.olemmess.msgsubject = "软件信息反馈" &&指定邮件标题
thisform.olemmess.MsgIndex = -1
thisform.olemmess.RecipAddress = "aaaa@
thisform.olemmess.send() &&发送邮件
thisform.olemsess.signoff &&关闭电子邮件句柄