| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 哪个邮箱可以用FT内置的邮件发送系统？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94367) |
| -- 作者：fubblyc -- 发布时间：2016/12/22 9:07:00 -- 哪个邮箱可以用FT内置的邮件发送系统？ 各位老师好，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 |
| -- 作者：有点色 -- 发布时间：2016/12/22 9:11:00 -- 1、如果用QQ邮箱，你要设置下
http://jingyan.baidu.com/article/4f7d5712b1ac7c1a201927da.html
2、SSL这样处理
Dim client As New System.Net.Mail.SmtpClient("smtp.outlook.office365.com", 587)
message.From = new System.Net.Mail.MailAddress("455189993@qq.com","别名") \'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名")) Dim content As String content &= "这是文字" & vbcrlf message.Body = content Try |
| -- 作者：fubblyc -- 发布时间：2016/12/22 9:31:00 -- 嗯嗯。是已经可以发送邮件了。
就是怎么发送附件呢？
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 |
| -- 作者：天若千颖 -- 发布时间：2016/12/22 9:42:00 -- 楼主，这个命令能群发邮件吗？给多个人发。 |
| -- 作者：fubblyc -- 发布时间：2016/12/22 9:57:00 -- 我还没测试，一会测试一下便知，代码应该是： message.To.Add("2450314695@qq.com") |
| -- 作者：有点色 -- 发布时间：2016/12/22 10:13:00 -- 论坛里面搜索MailMessage，应有尽有
|