标题：简洁实用的邮件管理器和FTP客户端

    来foxtable论坛混了很久了，趁这几日老六更换软件核心、本人也无所事事，就做了这么个邮件管理器和ftp客户端。经几次试用，效果良好，完全可以抛弃cuteftp等超大的专业工具了。
    本程序没有用到任何数据表，全部用外部文件保存相关的设置信息，信息保存时都作了加密处理，无关人员无法查看你的所有关键资料。

    1、可以设置通讯录，发送邮件时就可以直接选择这个通讯录：
   
此主题相关图片如下：sjrml.jpg


    2、如果你自己有一个或多个邮箱，可以在这里设置：
   
此主题相关图片如下：2.jpg


    3、发送邮件时，你想用哪个邮箱发送，就在哪个邮箱上双击。双击后就会弹出邮件编辑窗口（可同时发给多个人，也可同时添加多个附件）：
   
此主题相关图片如下：snap3.jpg


    4、如果你有远程的FTP服务器，用它管理远程文件也是非常方便：
   
此主题相关图片如下：snap4.jpg

foxtable源文件下载：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:adsys.rar

问题已经修正！

这也行啊，太强了。

发现点问题，如果发邮件时不加入附件则出错。
双击不能删除附件。

我测试都正常啊。也可能是项目剥离的时候，有点问题。
有空时再查查。

先收藏再慢慢研究,谢谢楼主!

没加附件时提示文件名称不能为空。
看了下代码，又没发现问题。


此主题相关图片如下：qq截图未命名1.png

明白了，原来还要再加一个判断。

    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

双击删除附件改成这样好象没问题。

e.Form.Controls("ListBox1").ComboList = ""

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

我改成这样就可以不加附件也能发送

另外,收件人选择不了