以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  365邮箱 如何发送邮件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89450)
--  作者：ljh29206
--  发布时间：2016/8/22 13:42:00
--  365邮箱 如何发送邮件
office365邮箱服务器

服务器
https://outlook.office365.com/mapi/emsmdb/?MailboxId=99feb7ba-d561-44cd-82c1-e6f4845d12f7@ttb.com"

exchange 邮箱 没有设置收发的邮箱地址.....

提示没有找到 smtp 主机

没法解释此远程名称

这个怎么搞呢
[此贴子已经被作者于2016/8/22 13:49:36编辑过]
--  作者：大红袍
--  发布时间：2016/8/22 14:17:00
--  

测试

 

Dim client As New System.Net.Mail.SmtpClient("smtp.outlook.office365.com", 587)
client.EnableSsl = True \'SSL


client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()

message.From = new System.Net.Mail.MailAddress("455189993@qq.com","别名")

\'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))
message.To.Add("2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try
--  作者：ljh29206
--  发布时间：2016/8/22 14:20:00
--  
哥 就是高手！
--  作者：ljh29206
--  发布时间：2016/8/22 14:41:00
--  
再请教下

Dim m As New MailSender
m.Host = "smtp.outlook.office365.com"
m.Port = 587
m.Account = "455189993@qq.com"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "liujh@tbfc.com.cn"
m.Title = "测试邮箱"
m.C
m.SendAsync()

这样怎么发不出去邮件
--  作者：大红袍
--  发布时间：2016/8/22 14:59:00
--  

 需要设置SSL的

 

client.EnableSsl = True \'SSL

--  作者：ljh29206
--  发布时间：2016/8/22 17:05:00
--  
client.EnableSsl = True \'
这个属性 在

Dim m As New MailSender

这里怎么写？


不是不能用 狐表自带的方法发送
[此贴子已经被作者于2016/8/22 17:07:37编辑过]
--  作者：大红袍
--  发布时间：2016/8/22 17:07:00
--  
 不行， MailSender 封装得不好，必须用 2楼的方法。