Foxtable(狐表)用户栏目专家坐堂 → [求助]关于LumiSoft.Net组件的用法,希望官方给予一些解答!


  共有3085人关注过本帖树形打印复制链接

主题:[求助]关于LumiSoft.Net组件的用法,希望官方给予一些解答!

帅哥哟,离线,有人找我吗?
lhpc120
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:6294 威望:0 精华:0 注册:2011/5/8 13:21:00
[求助]关于LumiSoft.Net组件的用法,希望官方给予一些解答!  发帖心情 Post By:2019/2/19 16:55:00 [只看该作者]

LumiSoft.Net是一个非常强大的邮件收发组件,加入到FOXTABLE后使得FOXTable如虎添翼,但是官方一直没有把这个组件加入到系统里面的意思,因使用FOXTable大部分都是习惯依赖于狐表的开发习惯或者对于其他语言还不懂,所以希望官方给与一些方法,供大家参考!

第一,关于邮箱是否可以登陆的验证方法。
Using pop3 As New LumiSoft.Net.POP3.Client.POP3_Client()
pop3.Connect(pop3Server, pop3Port, pop3UseSsl)
pop3.Login(username, password )
这里说明了LumiSoft.Net服务器和登陆服务器了,但是pop3.Login方法并不会返回值,所以,如果一旦验证失败,系统将会报错。
经过大量的网络搜索,发现如下一个句子,但是不知道再狐表怎么用。
        public IList<MailEntity> Receive( AccountEntity item ) {
            if( null == item || item == AccountEntity.Empty ) throw new ArgumentNullException( "参数不可为空!" );

            IList<MailEntity> list = new List<MailEntity>();
            using( POP3_Client client = new POP3_Client() ) {
                client.Connect( item.POP3Address, item.POP3Port, item.POP3IsUsingSSL );  //连接
                client.Authenticate( item.Username, item.Password, false );           //验证
                if( client.Messages != null && client.Messages.Count > 0 ) {
                    foreach( POP3_ClientMessage message in client.Messages ) {
                        MailEntity entity = _Convert( message );
                        entity.Account = item;
                        list.Add( entity );
                    }
                }
            }
            return list;
        }
第二,已知函数如下:
            msgs(3).MessageToByte ‘读取指定顺序邮件
            msgs(3).uid '邮件UID
            LumiSoft.Net.Mail.Mail_Message.ParseFromByte(messageBytes) ’对信息进行进一步的转换
            mime_message.From(0).DisplayName '发件人邮箱
            mime_message.From(0).Address '发送人地址
           mime_message.Subject '发送的主题
            mime_message.Date ' 发送时间
           mime_message.BodyHtmlText ‘邮件内容。HTML格式
mime_message.bodytext ’正文文本格式
            Dim fjs = mime_message.GetAttachments(True, True)  ‘对象通过mime_message.GetAttachments(true, true)进行获取,转换为附件信息
            Dim fjss As Integer = fjs.length '发送附件数

还有大量的函数不知道,比如抄送地址等,希望官方尽可能的完善这个信息。

其中查询获得如下:
entity.ContentDisposition.DispositionType == MIME_DispositionTypes.Attachment
如果要区分邮件里面的附件是内嵌图片附件还是真正的附件,那么可以通过下面代码进行判断,如果是MIME_DispositionTypes.Attachment的就是普通附件,MIME_DispositionTypes.Inline的就是内嵌正文的附件。
但是再狐表中不知道怎么用。

第三,邮件中内容的附件(比如图片,多媒体),如何直接获取到邮件中显示,不能下载了附件然后替换内容吧。官方可能会说用base64转换,但是这个转换方式再狐表中如何让应用呢?

参考连接:
https://www.cnblogs.com/wuhuacong/archive/2013/05/06/3063093.html
https://www.cnblogs.com/kkun/archive/2009/12/03/1616487.html
https://www.cnblogs.com/deerchao/archive/2007/03/16/677355.html

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105478 积分:536381 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/19 17:06:00 [只看该作者]

我没用过,也没有时间研究。看甜版回来有没有空看看

 回到顶部
帅哥哟,离线,有人找我吗?
lhpc120
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:6294 威望:0 精华:0 注册:2011/5/8 13:21:00
  发帖心情 Post By:2019/2/19 17:18:00 [只看该作者]

好的,谢谢版主~期待中……图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lhpc120
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:6294 威望:0 精华:0 注册:2011/5/8 13:21:00
  发帖心情 Post By:2019/2/21 23:06:00 [只看该作者]

没有下文了啊?请问还给解答和处理吗?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105478 积分:536381 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/21 23:24:00 [只看该作者]

甜版这周有事,不在

 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1731 积分:11255 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2019/2/22 9:51:00 [只看该作者]

上面是C#语法,基本语法都是相似的,每一行你换成VB语法即可,USING不需要改变。去掉分号,大括号换成VB对应语句

 回到顶部
帅哥哟,离线,有人找我吗?
lhpc120
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:6294 威望:0 精华:0 注册:2011/5/8 13:21:00
  发帖心情 Post By:2019/3/5 9:40:00 [只看该作者]

顶一下

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/5 10:33:00 [只看该作者]

1、可以用try捕捉的啊

 

try
    pop3.Login(username, password )
catch ex As exception
    msgbox(ex.message)
End try

 

2、请自行查看帮助文档

 

http://www.lumisoft.ee/lswww/download/downloads/Net/Help/

 

3、读取附件的时候,可以设置参数的啊,认认真真看文档,看不懂英文,结合百度翻译来看

 

Dim fjs = mime_message.GetAttachments(False, False)


 回到顶部
帅哥哟,离线,有人找我吗?
lhpc120
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:6294 威望:0 精华:0 注册:2011/5/8 13:21:00
  发帖心情 Post By:2019/3/6 5:08:00 [只看该作者]

当我没说图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部