- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]邮箱 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102341)
-- 发布时间：2017/6/17 22:31:00
-- [求助]邮箱
老师，在发送邮件时报错。
此主题相关图片如下：图像 2.png
Dim i As Integer
Dim sjr As String = e.Form.Controls("CheckedComboBox1").Value
If sjr <> ""
Dim m As New MailSender
\'邮件基本参数
Dim Parts() As String = Vars("YN2").Split(",")
m.Host = Parts(1)
m.Port = Parts(2)
m.Account = Parts(3)
m.Password = Parts(4)
m.From = Parts(5)
m.Title = e.Form.Controls("TextBox1").Value
m.Content = e.Form.Controls("TextBox2").Value
\'添加收件人
Dim sjrs() As String = sjr.Split(";")
If sjrs.Length = 0
m.To = sjr
Else
For i = 0 To sjrs.Length-1
m.AddReceiver(sjrs(i))
Next
End If
\'添加附件
Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13))
If fjs.Length > 0
For i = 0 To fjs.Length-1
If fjs(i).Length > 0
m.AddAttachments(fjs(i))
End If
Next
End If
\'开始发送
m.SendAsync()
MessageBox.Show("邮件发送完毕! ","信息提示",MessageBoxButtons.OK)
Else
MessageBox.Show("收件人信息不完整, 请重新设置! ","信息提示",MessageBoxButtons.OK)
End If
-- 发布时间：2017/6/18 17:38:00
--
你的数据有问题吧，特别是 m.AddAttachments 这个语句，确保文件存在。
具体问题，做个实例上来看看。
-- 发布时间：2017/6/18 21:29:00
--
老师，邮件没有发出去。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:邮箱.rar |
-- 发布时间：2017/6/18 23:20:00
--
你的操作步骤有问题。
打开【通讯录】->【邮箱账号管理】->选中一个人，双击，发送邮件。
-- 发布时间：2017/6/19 8:03:00
--
老师，邮箱收不到邮件。
-- 发布时间：2017/6/19 8:39:00
--
老师，邮箱收不到邮件
此主题相关图片如下：图像 1.png
-- 发布时间：2017/6/19 8:40:00
--
发信件人的信息，是你双击的那个人的信息，如果收不到，说明你信息写错了。
发送邮件参考 http://www.foxtable.com/webhelp/scr/1404.htm
-- 发布时间：2017/6/19 9:02:00
--
老师，下面输入的信息对吗
此主题相关图片如下：图像 2.png
在安装目录下需要添加类似***.dll的文件吗。
[此贴子已经被作者于2017/6/19 9:04:25编辑过]
-- 发布时间：2017/6/19 9:52:00
--
输入你自己的邮箱的账号、密码等信息。
发送邮件，参考 http://www.foxtable.com/webhelp/scr/1404.htm
-- 发布时间：2017/6/19 11:39:00
--
老师，现在有报错了。
此主题相关图片如下：图像 3.png