| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- qq邮箱发送邮件老是操作超时 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145294) |
| -- 作者：dj752735228 -- 发布时间：2020/1/15 11:03:00 -- qq邮箱发送邮件老是操作超时 Dim m As New MailSender m.Host = "smtp.qq.com" m.EnableSsl = True \'必须将EnableSsl属性设置为True m.Account = "2206******@qq.com" m.Password = "kbfh******qidjea" \'注意这不是QQ密码,是授权码 m.From ="220******57@qq.com" \' "chaodaoliangzijisuan@foxmail.com" m.AddReceiver("752*****@qq.com") m.Title = "李总明天来北京" m.C m.Send() MessageBox.Show(1,"提示") 代码如上 很简单的发送邮件，之前是可以正常发送邮件，因为改了qq密码，所以之前授权码不能用了，我又重新生成授权码了（在Foxmail上验证了可以使用），现在代码一直在m.send操作超时。急！！！其他程序需要使用。
|
| -- 作者：dj752735228 -- 发布时间：2020/1/15 11:16:00 -- 求大佬回复解决一下~急，特别急。 |
| -- 作者：有点蓝 -- 发布时间：2020/1/15 11:28:00 -- http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139233 估计是授权码还是有问题
[此贴子已经被作者于2020/1/15 11:30:06编辑过]
|
| -- 作者：dj752735228 -- 发布时间：2020/1/15 11:32:00 -- 授权码在Foxmail客户端上测试是能够发送邮件的 |
| -- 作者：有点蓝 -- 发布时间：2020/1/15 11:59: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 |
| -- 作者：dj752735228 -- 发布时间：2020/1/15 13:56:00 -- 谢谢大佬处理
我其他程序还需要用到添加附件和多个接受者的函数，请大佬帮忙写一下用哪个函数。
|
| -- 作者：有点蓝 -- 发布时间：2020/1/15 14:02:00 -- 在试试这种：http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140192 |
| -- 作者：dj752735228 -- 发布时间：2020/1/15 14:45:00 -- Dim client As New System.Net.Mail.SmtpClient() client.timeout = 100 \'1秒设置延迟时间 client.Host = "smtp.qq.com" \'//smtp服务器地址 client.EnableSsl = False \'//smtp服务器是否启用SSL加密 \'client.Port = 25 \'//指定 smtp 服务器的端口,默认是25,如果采用默认端口,可省去 client.UseDefaultCredentials = True \'//SMTP服务器需要身份认证,目前基本没有不需要认证的了 client.Credentials = New System.Net.NetworkCredential("752*****@qq.com", "ovsqztb******bdhb") \'//发件人邮箱的用户和密码(授权码,并不是发件邮箱的密码) client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network \'//将smtp的出站方式设为 Network Dim message As New System.Net.Mail.MailMessage \'message.Priority = New System.Net.Mail.MailPriority.High \'//邮件的优先级,分为 Low, Normal, High,通常用 Normal即可 message.From = new System.Net.Mail.MailAddress("7527****8@qq.com","Kinpor.com",Encoding.GetEncoding(936)); \'//收件方看到的邮件来源(发信人邮件地址,发信人显示的名称,第二个参数所使用的编码) 参考了你发的网址的编辑 最后一句开始就显示 字符无效 有木有更简单一点的参考 我只需要添加多个收件人和多个附件的功能 谢谢~~ |
| -- 作者：dj752735228 -- 发布时间：2020/1/15 14:48:00 -- 另外 大佬知道这个问题什么时候可以修复吗 什么时候才能用原来的方式发送吗？ |
| -- 作者：有点蓝 -- 发布时间：2020/1/15 16:15:00 -- 测试了一下，使用.net的方法一样出错，估计还是qq服务器的原因 |