Foxtable(狐表)用户栏目专家坐堂 → 邮箱发送失败


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

主题:邮箱发送失败

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 11:12:00 [显示全部帖子]

每个用户都要new一个MailSender,要把邮件所有代码都放到循环里


                    For index As Integer = 0 To values.Length - 1
                        Dim dr2 As DataRow = DataTables("登录用户").SQLFind("用户姓名='" & values(index) & "'")
                        If dr2 IsNot Nothing Then
       Dim m1 As New MailSender
        m1.Host = "smtp.139.com"
        m1.EnableSsl = True '必须将EnableSsl属性设置为True
        m1.Account = "scy"
……
……
                                 messagebox.Show("5")
                            m1.To = dr2("手机号") & "@139.com"
                            messagebox.Show(dr2("手机号"))
                            m1.SendAsync()
                        End If
                    Next

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 11:13:00 [显示全部帖子]

另外如果邮件服务商没有指定要使用ssl的,把下面代码去掉

m1.EnableSsl = True

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 11:25:00 [显示全部帖子]

循环里一个名称就行了。您见过帮助的代码循环里定义变量会有不同的嘛

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 11:47:00 [显示全部帖子]

能够收到,说明代码没有问题。

现在很多邮箱都有防垃圾处理策略,短时间内频繁发送会有限制的

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 14:36:00 [显示全部帖子]

m1.SendAsync()改为m1.Send看提示什么错误

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 14:48:00 [显示全部帖子]

发邮件怎么可能是这种错误?单独到命令窗口测试看看提示什么错误

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/8 16:53:00 [显示全部帖子]

提示邮件服务器拒绝接收,可能是之前发送太多,被服务器屏蔽了

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/9 8:01:00 [显示全部帖子]

账户改为完整的发送邮箱试试,其它看不出什么问题

m2.Account = "sss@7400.xyz"

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/9 9:22:00 [显示全部帖子]

m2.AddReceiver("13840700@139.com")
改为

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111409 积分:567115 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/9 10:58:00 [显示全部帖子]

换种方式试试

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

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

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