用Jmail发送邮件不成功啊!!试了好多方法了,不成功啊,求大神指教---在线急求!

si_pangzi 2013-09-16 11:23:32
Dim Jmail,sender


sender="*@163.com" '发送者的邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 1 '级别越高,发送邮件越快
Jmail.MailServerUserName = "*@163.com" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "*" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject ="麻风,给你的邮件" ' 标题
Jmail.AddRecipient "*@163.com" ' 收邮件 -邮箱
Jmail.Body="你 给我发邮件了!我看看能 成功不!" '邮箱内容
Jmail.Send("smtp.126.com") 'SMTP服务器,需要根据实际修改
response.write "发送成功!"
Set Jmail=nothing
...全文
156 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lszx172 2014-02-09
  • 打赏
  • 举报
回复
163的发件箱为什么用126的smtp服务器?
si_pangzi 2013-09-16
  • 打赏
  • 举报
回复
代码应该是没问题吧,提示成功,但是邮箱是收不到,收件的!!
si_pangzi 2013-09-16
  • 打赏
  • 举报
回复

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧