哪个邮箱可以用FT内置的邮件发送系统？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师好，QQ邮箱不能用内置的邮件发送系统，那其他有什么可以吗？因为发送的邮箱由我们自己控制，自己申请个即可，比较简单。

如果都不能，我用了参考有点蓝老师的代码可以发送，但不知道怎么发附件和发给多个人。。。。

我测试也发不了，MailSender不能设置SSL。网上搜索。net本身能用的只有System.Web.Mail

以下代码测试通过，需要添加System.Web.dll的引用

Dim mail As new System.Web.Mail.MailMessage()

try

mail.To = "收件Q号@qq.com"

mail.From = "发件Q号@qq.com"

mail.Subject = "这是主题"

mail.BodyFormat = System.Web.Mail.MailFormat.Html

mail.Body = "这是内容"

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") '//身份验证

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", mail.From) '//邮箱登录账号,这里跟前面的发送账号一样就行

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "******") '//这个密码要注意:如果是一般账号,要用授权码企业账号用登录密码

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 465)'//端口

mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")'//SSL加密

System.Web.Mail.SmtpMail.SmtpServer = "smtp.qq.com" '//企业账号用smtp.exmail.qq.com

System.Web.Mail.SmtpMail.Send(mail)

msgbox("邮件发送成功 ")

catch ex As Exception

msgbox("邮件发送成功 : " & ex.Message )

End try

原帖地址：http://blog.csdn.net/mojocube/article/details/51517171

1、如果用QQ邮箱，你要设置下

http://jingyan.baidu.com/article/4f7d5712b1ac7c1a201927da.html

2、SSL这样处理

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

嗯嗯。是已经可以发送邮件了。

就是怎么发送附件呢？