- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请帮忙看看这个出错信息如何处理！！！（可以请狐爸帮忙处理一下吗？非常感谢！） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15683)
-- 发布时间：2012/1/6 10:49:00
-- [求助]请帮忙看看这个出错信息如何处理！！！（可以请狐爸帮忙处理一下吗？非常感谢！）
你好，这是我在论坛上下载的发送邮件的小程序，在发送单个附件时没有问题，但在需要发送多个附件时，一点确认发送则出错，请帮忙看看问题错在哪里: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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:adsys(1).rar |
此主题相关图片如下：截图01.png
[此贴子已经被作者于2012-1-9 13:13:44编辑过]
-- 发布时间：2012/1/7 14:39:00
--
请帮忙处理！！
-- 发布时间：2012/1/8 12:23:00
--
求助！！！
-- 发布时间：2012/1/8 18:57:00
--
可能事这句的问题：Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13))
改成这样看看： Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split("|")
-- 发布时间：2012/1/8 20:10:00
--
试过了，还是不行！
-- 发布时间：2012/1/8 21:17:00
--
我直接用真实字符串替换你的Parts(1)等，测试正常发送邮件···
-- 发布时间：2012/1/9 10:42:00
--
此主题相关图片如下：截图02.png
试过了，问题还没有解决，请再帮忙看看！
-- 发布时间：2012/1/9 12:45:00
--
请各位帮忙看看！
-- 发布时间：2012/1/9 12:56:00
--
你自己看看 Vars("YN2")是什么时候赋值的，show看看其值是否是你需要的。 不知道你的整个过程如何啊····
-- 发布时间：2012/1/9 13:01:00
--
在第1楼中有一个附件adsys(1).rar，下载后运行发送一下邮件，单个附件是没有问题的，但多个附件就出问题了！