pb邮件-jmail.dll

来源：互联网发布：淘宝一口价可以改吗编辑：程序博客网时间：2024/05/01 01:48

http://download.csdn.net/source/1422097 资源URL

1、注册jmail.dll 方法：在运行中输入： regsvr32 路径/jmail.dll 路径中不可以包含空格

2、示例代码：

oleobject jmail
Jmail = Create OLEObject
Jmail.ConnectToNewObject("JMail.Message")
Jmail.Charset = 'GB2312' //中文用 ls_charset“GB2312”
Jmail.ISOEncodeHeaders = True
Jmail.silent = True
Jmail.Logging = True
Jmail.From = 'fengwei813@163.com' //ls_user 发件人邮箱
Jmail.FromName = 'fengwei813' //ls_mail_fr 发件人
Jmail.Subject = 'mail test' //ls_subject 邮件主题
Jmail.MailServerUserName = 'fengwei813@163.com'//ls_user 发件邮箱登录账户
Jmail.MailServerPassword = '****' //ls_pwd 发件邮箱用户密码
Jmail.Priority = 3 //优先级
Jmail.AddRecipient('fengwei813@yahoo.com.cn') //ls_mail_to 收件人邮箱
Jmail.Body ='bufeng success' + "~r~n" //ls_Text 邮件内容

IF Jmail.Send('smtp.163.com') THEN //ls_host 为发件邮箱服务器
messagebox('Info',"发送成功！")
ELSE
messagebox('Info',"发送失败！")
END IF
Jmail.Close()
Destroy Jmail