以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 大容量文件邮件发放超时问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123465) |
-- 作者:2900819580 -- 发布时间:2018/8/15 14:56:00 -- [求助] 大容量文件邮件发放超时问题 以下是发邮件代码,文件比较小的时候可以正常发送,但文件比较大的时间,就发不出去,或者发送的时间很长。
Dim m As New MailSender m.Send() MessageBox.Show("发送成功") |
-- 作者:有点甜 -- 发布时间:2018/8/15 15:23:00 -- 设置超时时间
Dim client As New System.Net.Mail.SmtpClient() \'message.Bcc.Add("2450314695@qq.com") \'密送 \'message.cc.Add("2450314695@qq.com") \'抄送 Dim content As String content &= "这是文字" & vbcrlf message.Body = content Dim attachment As new System.Net.Mail.Attachment("d:\\test.xls", System.Net.Mime.MediaTypeNames.Application.Octet) Try finally message.Dispose()
|
-- 作者:有点甜 -- 发布时间:2018/8/15 15:24:00 -- 或者异步发送
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70729&skin=0
|
-- 作者:2900819580 -- 发布时间:2018/8/15 16:16:00 -- 老师,附件在那里增加,如果用异步发送的话,是不是就不用考虑超时时间的问题了。
Dim client As New Net.Mail.SmtpClient("smtp.126.com") client.UseDefaultCredentials = True Dim [from] As New Net.Mail.MailAddress("lin_hailun@126.com", "lin " & ChrW(&HD8) & " hailun", System.Text.Encoding.UTF8) message.Body = "This is a test e-mail message sent by an application. " Dim userState As String = "test message1" |
-- 作者:有点甜 -- 发布时间:2018/8/15 16:46:00 -- 一样要设置 client.Timeout = 60000 的,你可以设置成较大的值。
|
-- 作者:2900819580 -- 发布时间:2018/8/16 9:09:00 -- 老师,附件在那里增加 |
-- 作者:有点甜 -- 发布时间:2018/8/16 9:35:00 -- 以下是引用2900819580在2018/8/16 9:09:00的发言:
老师,附件在那里增加
参考2楼代码
Dim attachment As new System.Net.Mail.Attachment("d:\\test.xls", System.Net.Mime.MediaTypeNames.Application.Octet) |
-- 作者:2900819580 -- 发布时间:2018/8/16 10:52:00 -- 老师,测试过30多M的附件可以正常发送,但目前有些文件大于100M的,以下代码没有办法知道是否发送成功;
问题:如果发送失败,怎么样可以返鐀信息回来。
Dim tb As Table = Tables("受控文件管理" & "_Table1") If r("发放形式") = "发放" Then Dim [from] As New Net.Mail.MailAddress("000000@163.com", "000000 " & ChrW(&HD8) & " 采购部", System.Text.Encoding.UTF8) \' Specify the message content. message.Body += Environment.NewLine \' & someArrows |
-- 作者:有点甜 -- 发布时间:2018/8/16 11:09:00 -- 认认真真看
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70729&skin=0
|
-- 作者:有点甜 -- 发布时间:2018/8/16 11:10:00 -- 全局代码那里放回结果
Public Sub SendCompletedCallback(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) If e.Cancelled Then End Sub |