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

这也行啊，太强了。

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

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


此主题相关图片如下：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 = ""

谢谢！没问题了。

可以啊，选定收件人，打勾，按确定按钮。


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




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

哈，老六没睡醒吧，我给过精华了，你又给一次。