有多种方法。其中之一是使用MAPISeeion和MAPIMessages控件,MAPISeeion是用于加载并建立一个MAPI连线,MAPIMessages是收发邮件。在按钮控件中写入下列代码,点击按钮就可以发送邮件。前提条件是系统必须有OUTLOOK一类的程序。
thisform.OleMsess.signon &&打开电子邮件句柄
thisform.olemmess.sessionid = thisform.olemsess.sessionid &&将句柄传给邮件编辑程序
thisform.olemmess.compose &&构成一个消息
thisform.olemmess.msgnotetext = <要发送的内容>
thisform.olemmess.msgsubject = <邮件标题>
thisform.olemmess.MsgIndex = -1
thisform.olemmess.RecipAddress = <Email>
thisform.olemmess.send() &&发送邮件
thisform.olemsess.signoff &&关闭电子邮件句柄