- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- foxmail的SMTP (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77664)
-- 发布时间：2015/11/23 13:10:00
-- foxmail的SMTP
单位邮箱使用foxmail作为客户端，能否用代码使用其SMTP功能，比如mailsender发送邮件？谢谢
-- 发布时间：2015/11/23 14:29:00
--
不明白你所指。
直接用 MailSender 输入账号密码什么的发送不就行了？
-- 发布时间：2015/11/23 15:59:00
--
单位自己建的邮件服务器，如图，
此主题相关图片如下：foxmail服务器_看图王.jpg
-- 发布时间：2015/11/23 16:43:00
--
Dim client As New System.Net.Mail.SmtpClient("smtp.xxxx.com", 25)
\'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
\'message.Bcc.Add("2450314695@qq.com") \'密送
\'message.cc.Add("2450314695@qq.com") \'抄送
Dim content As String
content &= "这是文字" & vbcrlf
content &= "也是文字"
message.Body = content
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try
-- 发布时间：2015/11/23 16:44:00
--
或者简单一点的
Dim m As New MailSender
m.Host = "smtp.xxxxx.Com"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.Send()