Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求教怎样引用cdosys.dll 来读取本地eml文件中的信息到数据库


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

主题：求教怎样引用cdosys.dll 来读取本地eml文件中的信息到数据库
帅哥哟，离线，有人找我吗？
temp1234
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：227 威望：0 精华：0 注册：2017/11/21 21:50:00 		求教怎样引用cdosys.dll 来读取本地eml文件中的信息到数据库  发帖心情 Post By：2017/12/1 14:11:00 [只看该作者]

我想求教下，怎样在foxtable 中 引用cdosys.dll，msado15.dll 来 读取 本地eml文件中的发件人，收件人 信息？这两个dll应该是系统自带的com组件吧？怎么引用？
怎样让下面的代码能够运行？
' 读取邮件内容
 Private  Sub ReadEML(ByVal emailPath As String)
            Dim file As String =  emailPath 
            Dim oMsg As CDO.Message =  New CDO.Message() 
            Dim stm As ADODB.Stream =  Nothing 
            '读取EML文件到CDO.MESSAGE，做分析的话，实际是用了下面的部分
            Try
                stm = New ADODB.Stream()
                stm.Open(System.Reflection.Missing.Value,
                ADODB.ConnectModeEnum.adModeUnknown,
                ADODB.StreamOpenOptionsEnum.adOpenStreamUnspecified,
                "", "")
                stm.Type = ADODB.StreamTypeEnum.adTypeBinary'二进制方式读入
                Dim '将EML读入数据流 As stm.LoadFromFile(file)
                Dim '将EML数据流载入到CDO.Message，要做解析的话，后面就可以了。 As oMsg.DataSource.OpenObject(stm,"_stream")
                '发件人
                Me.lblFrom.Text = oMsg.From
                MsgFrom = oMsg.From
                '收件人
                Me.lblTo.Text = oMsg.To
                MsgTo = oMsg.To
                Next
 
            Finally
                stm.Close()
            End Try
 
 End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim file As String = "d:\test.txt"
Dim oMsg = createobject("CDO.Message")
Dim stm =  Nothing
'读取EML文件到CDO.MESSAGE,做分析的话,实际是用了下面的部分
Try
    stm = New ADODB.Stream()
    stm.Open(System.Reflection.Missing.Value,ADODB.ConnectModeEnum.adModeUnknown,ADODB.StreamOpenOptionsEnum.adOpenStreamUnspecified,"", "")
    stm.Type = ADODB.StreamTypeEnum.adTypeBinary'二进制方式读入
    stm.LoadFromFile(file)
    oMsg.DataSource.OpenObject(stm,"_stream")
    msgbox(oMsg.From)
    msgbox(oMsg.To)
catch ex As exception
    msgbox(ex.message)
Finally
    stm.Close()
End Try

 回到顶部
帅哥哟，离线，有人找我吗？
temp1234
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：227 威望：0 精华：0 注册：2017/11/21 21:50:00 		  发帖心情 Post By：2017/12/1 16:41:00 [只看该作者]

非常感谢老师的指导图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询