Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共31 条记录, 每页显示 10 条, 页签: [1] [2][3][4]
[浏览完整版]

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

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

    1、可以设置通讯录,发送邮件时就可以直接选择这个通讯录:
   
图片点击可在新窗口打开查看此主题相关图片如下:sjrml.jpg
图片点击可在新窗口打开查看

    2、如果你自己有一个或多个邮箱,可以在这里设置:
   
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

    3、发送邮件时,你想用哪个邮箱发送,就在哪个邮箱上双击。双击后就会弹出邮件编辑窗口(可同时发给多个人,也可同时添加多个附件):
   
图片点击可在新窗口打开查看此主题相关图片如下:snap3.jpg
图片点击可在新窗口打开查看

    4、如果你有远程的FTP服务器,用它管理远程文件也是非常方便:
   
图片点击可在新窗口打开查看此主题相关图片如下:snap4.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-8-16 11:54:56编辑过]
2楼
reachtone 发表于:2009/8/16 11:57:00
foxtable源文件下载:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:adsys.rar


问题已经修正!
[此贴子已经被作者于2009-8-16 13:28:41编辑过]
3楼
czy 发表于:2009/8/16 12:22:00

这也行啊,太强了。

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

4楼
reachtone 发表于:2009/8/16 12:43:00
以下是引用czy在2009-8-16 12:22:00的发言:

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

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

5楼
yangming 发表于:2009/8/16 12:45:00
先收藏再慢慢研究,谢谢楼主!
6楼
czy 发表于:2009/8/16 12:54:00
没加附件时提示文件名称不能为空。
看了下代码,又没发现问题。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-8-16 12:56:04编辑过]
7楼
czy 发表于: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
8楼
czy 发表于:2009/8/16 13:02:00
双击删除附件改成这样好象没问题。

e.Form.Controls("ListBox1").ComboList = ""
9楼
yangming 发表于: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

我改成这样就可以不加附件也能发送
10楼
yangming 发表于:2009/8/16 13:15:00
另外,收件人选择不了
共31 条记录, 每页显示 10 条, 页签: [1] [2][3][4]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 3 queries.