主题：邮箱发送失败

 Dim msg1 As String '’做邮箱发送设置
        Dim m1 As New MailSender
        m1.Host = "smtp.139.com"
        m1.EnableSsl = True '必须将EnableSsl属性设置为True
        m1.Account = "scy"
        m1.Password = "xxx"
        m1.From = "scy@139.com"
        messagebox.Show("1")
        m1.Title = "船舶申报提醒"       
        msg1 = dr("船舶代理") & "已申报船名:" & dr("中文船名") & ",请按要求进行后续工作"      
        m1.Content = msg1
       
        Dim zbkz As String
        Dim zbgy As String
        Dim dr1 As DataRow
        dr1 = DataTables("列表项目").SQLFind("值班日期='" & Date.Today & "'")
       messagebox.Show("2")
       
        If dr1 IsNot Nothing Then '如果找到的话
                 messagebox.Show("3")
           
            If dr1("值班关员") <> "" Then
                    messagebox.Show("4")
                Dim Values() As String
                Values = dr1("值班关员").split("、")
                If values.length > 0 Then
                    For index As Integer = 0 To values.Length - 1
                        Dim dr2 As DataRow = DataTables("登录用户").SQLFind("用户姓名='" & values(index) & "'")
                        If dr2 IsNot Nothing Then
                                 messagebox.Show("5")
                            m1.To = dr2("手机号") & "@139.com"
                            messagebox.Show(dr2("手机号"))
                            m1.SendAsync()
                        End If
                    Next
                End If
               
            End If

 

设置的中断显示都正常，但是没有收到邮件，也没有发送记录，什么原因呢？

统一都用Dim m1 As New MailSender这个m1行吗？还是每次都需要变一下，如：m1、m2、m3？

我现在偶尔能收到，偶尔收不到，我看发送列表，每次只发了一个。代码如下：

  Dim Values() As String
                Values = dr1("值班关员").split("、")
                If values.length > 0 Then
                    For index As Integer = 0 To values.Length - 1
                        Dim dr2 As DataRow = DataTables("登录用户").SQLFind("用户姓名='" & values(index) & "'")
                        If dr2 IsNot Nothing Then
                            messagebox.Show("5")
                            Dim msg1 As String '’做邮箱发送设置
                            Dim m1 As New MailSender
                            m1.Host = "smtp.139.com"
                            m1.EnableSsl = True '必须将EnableSsl属性设置为True
                            m1.Account = "scy1"
                            m1.Password = "sss"
                            m1.From = "scy1@139.com"
                            messagebox.Show("1")
                            m1.Title = "船舶申报提醒"
                            msg1 = dr("船舶代理") & dr("用户姓名") & "已申报船名:" & dr("中文船名") & ",请按要求进行后续工作。"
                            m1.Content = msg1
                            m1.To = dr2("手机号") & "@139.com"
                            messagebox.Show(dr2("手机号"))
                            m1.SendAsync()
                        End If
                    Next
                End If
               
            End If

   dr1 = DataTables("列表项目").SQLFind("值班日期='" & Date.Today & "'")
           
        If dr1 IsNot Nothing Then '如果找到的话      
            If dr1("值班关员") <> "" Then
                Dim Values() As String
                Values = dr1("值班关员").split("、")
                If values.length > 0 Then
                    Dim msg1 As String '’做邮箱发送设置
                    Dim m1 As New MailSender
                    m1.Host = "smtp.139.com"
                                               m1.EnableSsl = True '必须将EnableSsl属性设置为True
                    m1.Account = "scy1"
                    m1.Password = "xxx"
                    m1.From = "scy1@139.com"                                           
                   
                    For index As Integer = 0 To values.Length - 1
                        Dim dr2 As DataRow = DataTables("登录用户").SQLFind("用户姓名='" & values(index) & "'")
                        If dr2 IsNot Nothing Then
                            messagebox.Show(dr2("邮箱地址"))
                            m1.AddReceiver(dr2("邮箱地址"))                         
                        End If
                    Next
                    m1.Title = "船舶申报提醒"
                    msg1 = dr("船舶代理") & dr("用户姓名") & "已申报船名:" & dr("中文船名") & ",请按要求进行后续工作。"
                    m1.Content = msg1
                    m1.SendAsync()
                End If
               
            End If
           

这样可以吗？现在还是无法发送

显示上传失败，chrome中显示404错误

没有什么具体提示

改成SendAsync()网页则不会被终止

此主题相关图片如下：qq截图20231208152706.png

是邮箱不行了吗

Dim msg2 As String '’做邮箱发送设置
Dim m2 As New MailSender
m2.Host = "smtp.feishu.cn"
m2.EnableSsl = True '必须将EnableSsl属性设置为True
m2.Account = "scy"
m2.Password = "vtpz0Gk3GH93"
m2.From = "sss@7400.xyz"
m2.Port = "465"
m2.AddReceiver("13840700@139.com")
m2.Title = "船舶申报提醒"
msg2 = ",请按要求进行后续工作。"
m2.Content = msg2
m2.Send

 

这个提示超时

 

官方信息：

邮箱地址
sss@7400.xyz
收信服务器（IMAP）
imap.feishu.cn
使用 SSL，端口号：993
发信服务器（SMTP）
smtp.feishu.cn
使用 SSL，端口号：465

还是一样提示超时，没办法了