以下的代码就可以顺利地发送电子邮件。供楼主参考!
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
&&关闭电子邮件句柄