pb调用jmail.dll自动发邮件

项目中的实例应用：

1、注册jmail.dll 方法：在运行中输入： regsvr32 路径\jmail.dll
string ls_charset
ls_charset='GB2312'
oleobject jmail
Jmail = Create OLEObject
Jmail.ConnectToNewObject("JMail.Message")
Jmail.Charset = ls_charset //中文用 “GB2312”
Jmail.ISOEncodeHeaders = True
Jmail.silent = True
Jmail.Logging = True
Jmail.From = Parent.sle_from.text //发件人邮箱
Jmail.FromName =gstr_globle.user_name //发件人
Jmail.Subject =Parent.sle_zt.text //邮件主题
Jmail.MailServerUserName =ls_user //发件邮箱登录账户
Jmail.MailServerPassword =ls_pwd //发件邮箱用户密码
Jmail.Priority = 3 //优先级
Jmail.AddRecipient(Trim( Parent.sle_to.text )) //收件人邮箱
Jmail.Body =Parent.mle_rn.text + "~r~n" //邮件内容

IF Jmail.Send(ls_host) THEN //ls_host为发件邮箱服务器
If ProFileString("mana_setdisplay.ini","otherset","savepwd",'')='1' Then
   SetProFileString("mana_setdisplay.ini","otherset","user",ls_user)
   SetProFileString("mana_setdisplay.ini","otherset","mm",ls_pwd)
   SetProFileString("mana_setdisplay.ini","otherset","email",sle_from.text)
   SetProFileString("mana_setdisplay.ini","otherset","server",ls_host)
End If
messagebox('提示',"发送成功！")
Jmail.Close()
Destroy Jmail
Close(Parent)
ELSE
// If ProFileString("mana_setdisplay.ini","otherset","savepwd",'')='1' Then
//   SetProFileString("mana_setdisplay.ini","otherset","savepwd",'0')
//   messagebox('提示',"发送失败,密码已取消自动保存!")
//   Jmail.Close()
//   Destroy Jmail
//   Return
// End If
messagebox('提示',"发送失败!")
Jmail.Close()
Destroy Jmail
END IF