oleobject jmail
String friendemail
Long ll_status
String err_msg jmail = Create oleobjectll_status = jmail.ConnectToNewObject ( "jmail.message")
Choose Case ll_status Case 0 Case -1 err_msg = " 调用参数错误" Case -2 err_msg = " Jmail 对象未找到" Case -3 err_msg = " 无法创建Jmail 对象" Case -4 err_msg = " 无法连接Jmail 对象" Case -9 err_msg = " 未知错误" Case -15 err_msg = " Windows MTS 服务未启动" Case -16 err_msg = " 无法调用Jmail对象初始化方法" Case Else err_msg = " 未知错误"End Choose
If ll_status <> 0 Then MessageBox("提示",err_msg)
Destroy jmail
Return 1
End If
JMail.silent = truejmail.charset = "gb2312" // 邮件字符集,默认为"US-ASCII"JMail.ContentType = "text/html" //' 发送者信息(可用变量方式赋值)jmail.From = is_mail //' 发送者地址jmail.fromname = is_name// ' 发送者姓名jmail.Subject =sle_subject.text // ' 邮件主题 //' 身份验证jmail.mailserverusername = is_userid //'身份验证的用户名jmail.mailserverpassword = is_userpass// ' 身份验证的密码 //' 设置优先级,范围从1到5,越大的优先级越高,3为普通jmail.priority = 3 //' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个friendemail = mle_address.text // '接收人邮件地址jmail.AddRecipient(friendemail)jmail.body =mle_notetext.textIf jmail.Send(is_smtp_name+":"+is_stmp_port ) = False Then MessageBox("提示","发送不成功。")else MessageBox("提示","发送成功。")End If jmail.Close()Destroy jmailreturn 0