Foxtable(狐表)用户栏目专家坐堂 → qq邮箱发送邮件老是操作超时


  共有2919人关注过本帖树形打印复制链接

主题:qq邮箱发送邮件老是操作超时

帅哥哟,离线,有人找我吗?
dj752735228
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
qq邮箱发送邮件老是操作超时  发帖心情 Post By:2020/1/15 11:03:00 [只看该作者]

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
  发帖心情 Post By:2020/1/15 11:16:00 [只看该作者]

求大佬回复解决一下~急,特别急。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/15 11:28:00 [只看该作者]

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=139233

估计是授权码还是有问题
[此贴子已经被作者于2020/1/15 11:30:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
dj752735228
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
  发帖心情 Post By:2020/1/15 11:32:00 [只看该作者]

授权码在Foxmail客户端上测试是能够发送邮件的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
  发帖心情 Post By:2020/1/15 13:56:00 [只看该作者]

谢谢大佬处理
我其他程序还需要用到添加附件和多个接受者的函数,请大佬帮忙写一下用哪个函数。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/15 14:02:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
dj752735228
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:26 积分:218 威望:0 精华:0 注册:2020/1/15 10:53:00
  发帖心情 Post By:2020/1/15 14:48:00 [只看该作者]

另外 大佬知道这个问题什么时候可以修复吗  什么时候才能用原来的方式发送吗?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/15 16:15:00 [只看该作者]

测试了一下,使用.net的方法一样出错,估计还是qq服务器的原因

 回到顶部
总数 19 1 2 下一页