- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 项目发布 (http://www.foxtable.com/bbs/list.asp?boardid=5)
---- 简洁实用的邮件管理器和FTP客户端 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=5&id=3871)
-- 发布时间：2009/8/16 11:54:00
-- 简洁实用的邮件管理器和FTP客户端
来foxtable论坛混了很久了，趁这几日老六更换软件核心、本人也无所事事，就做了这么个邮件管理器和ftp客户端。经几次试用，效果良好，完全可以抛弃cuteftp等超大的专业工具了。
本程序没有用到任何数据表，全部用外部文件保存相关的设置信息，信息保存时都作了加密处理，无关人员无法查看你的所有关键资料。
1、可以设置通讯录，发送邮件时就可以直接选择这个通讯录：
此主题相关图片如下：sjrml.jpg
2、如果你自己有一个或多个邮箱，可以在这里设置：
此主题相关图片如下：2.jpg
3、发送邮件时，你想用哪个邮箱发送，就在哪个邮箱上双击。双击后就会弹出邮件编辑窗口（可同时发给多个人，也可同时添加多个附件）：
此主题相关图片如下：snap3.jpg
4、如果你有远程的FTP服务器，用它管理远程文件也是非常方便：
此主题相关图片如下：snap4.jpg
[此贴子已经被作者于2009-8-16 11:54:56编辑过]
-- 发布时间：2009/8/16 11:57:00
--
foxtable源文件下载：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:adsys.rar |
问题已经修正！
[此贴子已经被作者于2009-8-16 13:28:41编辑过]
-- 发布时间：2009/8/16 12:22:00
--
这也行啊，太强了。
发现点问题，如果发邮件时不加入附件则出错。
双击不能删除附件。
-- 发布时间：2009/8/16 12:43:00
--
以下是引用czy在2009-8-16 12:22:00的发言：
发现点问题，如果发邮件时不加入附件则出错。
双击不能删除附件。
我测试都正常啊。也可能是项目剥离的时候，有点问题。
有空时再查查。
-- 发布时间：2009/8/16 12:45:00
--
先收藏再慢慢研究,谢谢楼主!
-- 发布时间：2009/8/16 12:54:00
--
没加附件时提示文件名称不能为空。
看了下代码，又没发现问题。
此主题相关图片如下：qq截图未命名1.png
[此贴子已经被作者于2009-8-16 12:56:04编辑过]
-- 发布时间：2009/8/16 13:00:00
--
明白了，原来还要再加一个判断。
if e.Form.Controls("ListBox1").ComboList <> "" Then
Dim fjs() as String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13))
If fjs.Length > 0
For i = 0 to fjs.Length-1
m.AddAttachments(fjs(i))
Next
End If
End If
-- 发布时间：2009/8/16 13:02:00
--
双击删除附件改成这样好象没问题。
e.Form.Controls("ListBox1").ComboList = ""
-- 发布时间：2009/8/16 13:14:00
--
If e.Form.Controls("ListBox1").Value <>""
If fjs.Length > 0
For i = 0 to fjs.Length-1
m.AddAttachments(fjs(i))
Next
End If
End If
我改成这样就可以不加附件也能发送
-- 发布时间：2009/8/16 13:15:00
--
另外,收件人选择不了