以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论] 163.com邮箱设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105587)
--  作者：2900819580
--  发布时间：2017/8/22 16:13:00
--  [讨论] 163.com邮箱设置

Dim m As New MailSender
m.Host = "smtp.163.com" \'用于指定主机地址,可以是域名,也可以是IP地址.
m.Account = "djq1w2" \'用于指定登录邮件服务器的帐号

\' 邮箱的密码是q1w2e3r4,授权码是djq1w2e3r4
m.Password = "djq1w2e3r4" \'用于指定登录邮件服务器的密码()
m.From = "djq1w2@163.com" \'用于指定发件人的邮件地址
m.To = "2900819580@qq.com" \'于指定收件人的邮件地址
m.Title = "初稿已经完成"
m.C
m.AddAttachments("c:\\book1.txt")
m.SendAsync()
MessageBox.Show("OK")

 

 

以上设置，无法收到邮件，但也没有任何问题提示

[此贴子已经被作者于2017/8/22 16:28:00编辑过]
--  作者：2900819580
--  发布时间：2017/8/22 16:28:00
--  
\'m.C0ntent = "附件为初稿, 请您审阅!"
[此贴子已经被作者于2017/8/22 16:29:30编辑过]
--  作者：有点甜
--  发布时间：2017/8/22 16:30:00
--  

测试你的代码，可以发送邮件。

 

你把m.SendAsync 改成 m.Send可以看到出错信息。

 
--  作者：2900819580
--  发布时间：2017/8/22 16:32:00
--  
我有收到邮件，应该是你测试时发出的，可是我自己测试就没有办法收到过。

改成Send也没有错误 的提示



[此贴子已经被作者于2017/8/22 16:32:24编辑过]
--  作者：2900819580
--  发布时间：2017/8/22 16:35:00
--  
For i As Integer = 0 To 10
    Dim m As New MailSender
    m.Host = "smtp.163.com" \'用于指定主机地址,可以是域名,也可以是IP地址.
    m.Account = "djq1w2" \'用于指定登录邮件服务器的帐号
    m.Password = "djq1w2e3r4" \'用于指定登录邮件服务器的密码
    m.From = "djq1w2@163.com" \'用于指定发件人的邮件地址
    m.To = "2900819580@qq.com" \'于指定收件人的邮件地址
    m.Title = "初稿已经完成_V" & i
    m.C
    m.AddAttachments("d:\\book1.txt")
    m.Send()
Next
MessageBox.Show("OK")

连续发十封，也没有收到。
--  作者：有点甜
--  发布时间：2017/8/22 17:04:00
--  
代码没问题，你电脑或者你网络的问题