- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求教怎样引用cdosys.dll 来读取本地eml文件中的信息到数据库 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110356)
-- 发布时间：2017/12/1 14:11:00
-- 求教怎样引用cdosys.dll 来读取本地eml文件中的信息到数据库
我想求教下，怎样在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
-- 发布时间：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
-- 发布时间：2017/12/1 16:41:00
--
非常感谢老师的指导
