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


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

主题:邮件发送

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8070 威望:0 精华:0 注册:2013/5/30 11:27:00
邮件发送  发帖心情 Post By:2024/1/26 14:03:00 [只看该作者]

老师,平时邮件发送都正常的,
突然有一天不能使用了,发送不出去
换了一台计算机,能正常发送,就某一台不能发送

[此贴子已经被作者于2024/1/26 14:04:10编辑过]

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8070 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2024/1/26 14:06:00 [只看该作者]

Dim mail As New System.Net.Mail.MailMessage()
                Dim Result As DialogResult
                Dim dz As String = drs(kii)("域名")  
                Dim dk As String = drs(kii)("端口")  
                Dim zh As String = drs(kii)("账号")  
                Dim mm As String=  drs(kii)("密码")  
                Dim fj As String = drs(kii)("邮箱") 
                
                
                Dim sj As String = ""
                Dim i As Integer = 0
                Dim drs1 As List(Of DataRow)
                Dim sjs As String
                Dim sjr As String
                Dim csr As String
                Dim Filter As String
                
                Dim dr As DataRow
                
                Dim drcz As DataRow
                Dim drf As DataRow
                
                Dim Wff As DataRow
                Dim Products As List(Of String)
                Products = DataTables("APQP发送邮件详情").GetValues("收件人邮箱","","[_SortKey]")
                For Each Product As String In Products
                    If Product <> "" Then
                        i = i + 1
                        If sj = "" Then
                            sj = Product
                        Else
                            mail.cc.Add(Product) '抄送
                        End If
                        csr = csr & "/" & Product
                    End If
                Next
    
                Dim smtp As New System.Net.Mail.SmtpClient(dz,dk)
smtp.EnableSsl = True 'SSL
                smtp.Credentials = New System.Net.NetworkCredential(zh,mm)
                
                
                mail.Subject = zt
                
                mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
                
                mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
                
                mail.From = New System.Net.Mail.MailAddress(fj,"EAPQP系统自动发送:" & tb1.value)
                
                mail.Priority = System.Net.Mail.MailPriority.Normal
                mail.IsBodyHtml = True
              '  mail.Body = nr
mail.Body = body 
                sj = sj.Trim(",")
'MessageBox.Show(400)
                If FileSys.DirectoryExists(CF_Address & "TempEmail\" & _UserName & "\") Then '如果目录C:\MyFolder存在
                    For Each File As String In FileSys.GetFiles(CF_Address & "TempEmail\" & _UserName & "\")
                        Dim attachment As new  System.Net.Mail.Attachment(file,  System.Net.Mime.MediaTypeNames.Application.Octet)
                        mail.Attachments.Add(attachment)
                    Next
                End If

              '  MessageBox.Show(33333)

                mail.To.Add(sj)


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


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

提示什么错误?

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8070 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2024/1/26 15:17:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看

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


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

服务器拒收了。那应该不是代码的问题。是不是短时间在循环里发送了大量邮件?被当做垃圾邮件拒收了

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8070 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2024/1/30 14:22:00 [只看该作者]

老师,找了几天,今天终于找到原因了:
发送时加了附件,附件没清掉,也清不掉,显示被占用,电脑没有打开此附件。
强制删除附件,也删除不了,后来关机后,先清掉附件,再发送邮件成功了。
如果自动清除附件?
    If FileSys.DirectoryExists(CF_Address & "TempEmail\") Then
    FileSys.DeleteDirectory(CF_Address & "TempEmail\",2,3) '则删除之
    End If

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

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


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

如果手工强制删除都删除不了,代码也没有用的。应该是邮件进程还在发送,或者是杀毒软件什么的锁定了

 回到顶部