主题：[求助] 大容量文件邮件发放超时问题

以下是发邮件代码，文件比较小的时候可以正常发送，但文件比较大的时间，就发不出去，或者发送的时间很长。

Dim m As New MailSender
m.Host = "smtp.163.com" '用于指定主机地址,可以是域名,也可以是IP地址.
m.Account = "8888" '用于指定登录邮件服务器的帐号
m.Password = "88888" '用于指定登录邮件服务器的密码
m.From = "88888@163.com" '用于指定发件人的邮件地址
m.AddReceiver(e.Form.Controls("Text_邮箱").text)'于指定收件人的邮件地址
m.AddReceiver("888888888@163.com")
m.Title = e.Form.Controls("Txt_Title").text
m.Content = e.Form.Controls("Txt_Content").text
If r.IsNull("电子档文件") = False Then m.AddAttachments(Vars("OAPath") & "文控中心\受控文件\" & r("文件种类") & "\电子文件\" &  r("电子档文件"))
If r("发放形式") = "发放" Then
    m.AddAttachments(Vars("OAPath") & "文控中心\受控文件\" & r("文件种类") & "\" & r("文件编号") & " " & r("文件名称") & ".pdf")
Else
    m.AddAttachments(Vars("OAPath") & "文控中心\作废文件\" & r("文件种类") & "\" & r("文件编号") & " " & r("文件名称") & ".pdf")
End If

m.Send()

MessageBox.Show("发送成功")