主题：求證 用狐表做个邮件发送按钮

謝謝狐爸....OK了

看幫助中的MailSender  ,,實現這一功能太簡單了..

狐爸

不知道為什麼,我用局域網郵箱測試成功

用外部郵箱測試,結果失敗

 

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = "wangyanqiu827@gmail.com"
m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.C
m.SendAsync()

 

我能用IE登錄郵箱啊,不知道那裡有問題..你看一下.

我用外部邮箱测试OK的。

  我就从来没有测试成功过.

我是這樣做的,

我先改為 這樣 ;

 

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = wangyanqiu827@gmail.com

m.To = amy@kinghorn-cn.com '我不知道第一次連接外部郵箱,為什麼設置為這樣成功

m.To = steve@kinghorn-cn.com

m.To = fszyhzg@kinghorn-cn.com

m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.SendAsync()

測試成功!

 

然後又改為之前的那種方式

Dim m As New MailSender
m.Host = "smtp.gmail.com"
m.Account = "wangyanqiu827"
m.Password = "wyq7758520"
m.From = wangyanqiu827@gmail.com

m.AddReceiver("amy@kinghorn-cn.com")
m.AddReceiver("steve@kinghorn-cn.com")
m.AddReceiver("fszyhzg@kinghorn-cn.com")
m.Title = " foxtable发送邮件 外部测试 XXX 明天来北京 ,,,,,,收到请回复AAAA!!"
m.C
m.SendAsync()

 

又測試成功了...

 

Dim Str1 As String = " 用户: " & User.Name  & Date.Today() & " 的数据输入完成,请查阅 " & Vars("内容") & Vars("日期")

 

狐爸!

這行代码显示效果 所有的文字都在一行.

我想分行显示怎么搞?

 

 

用户: " & User.Name

 & Date.Today() & " 的数据输入完成,请查阅 " & Vars("内容") & Vars("日期")

请教，如何判断m.SendAsync()邮件发送成功或失败呢？

我觉得  通过判断能不能连接邮箱服务器   应该可以做到..

 我这测试不成功.发送没有提示，但对方接收不到邮件。请问是否跟电脑设置有关？请教高手指点！先谢了！！！