以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 请老师指导下读取 outlook msg 文件的 代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110855)
--  作者：temp1234
--  发布时间：2017/12/11 10:20:00
--  [求助] 请老师指导下读取 outlook msg 文件的 代码
老师好：
       我想使用代码操作.msg文件，把它另存为doc，请老师帮忙改下代码，请原谅我VB知识不熟，代码如下：
Dim myolapp = CreateObject("outlook.application")
Dim olNS = myolapp.GetNamespace("MAPI")
OutLook.MailItem olMail = default(OutLook.MailItem) \'这句有错误,该如何改?
olMail = olNS.OpenSharedItem(sourcePath)
bool cancelled = False
Dim sourcePath As String  = "c:\\xx.msg"
Dim targetPath As String = "c:\\xx.doc" \'另存为doc文件
olMail.SaveAs(targetPath, OutLook.OlSaveAsType.olDoc)\'指定 save As 的类型
\'以下4条语句用来释放文件,对吗?
olMail.Close(cancelled)
myolapp.Quit
olMail = Nothing
myolapp = Nothing

另我想请教下，怎么利用代码把EML文件转成msg文件？
感谢老师！ 
--  作者：有点甜
--  发布时间：2017/12/11 10:34:00
--  


Dim myolapp = CreateObject("outlook.application")
Dim olNS = myolapp.GetNamespace("MAPI")
Dim olMail =  myolapp.CreateItem(0)
Dim sourcePath As String  = "c:\\xx.msg"
Dim targetPath As String = "c:\\xx.doc" \'另存为doc文件
olMail = olNS.OpenSharedItem(sourcePath)
olMail.SaveAs(targetPath, 4)\'指定 save As 的类型
olMail.Close(False)
myolapp.Quit
olMail = Nothing
myolapp = Nothing

 

如果要操作outlook，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107403&skin=0

 

[此贴子已经被作者于2017/12/11 10:33:53编辑过]
--  作者：temp1234
--  发布时间：2017/12/11 10:50:00
--  
感谢老师