Foxtable(狐表)用户栏目专家坐堂 → [求助] 请老师指导下读取 outlook msg 文件的 代码


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

主题:[求助] 请老师指导下读取 outlook msg 文件的 代码

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


加好友 发短信
等级:婴狐 帖子:10 积分:227 威望:0 精华:0 注册:2017/11/21 21:50:00
[求助] 请老师指导下读取 outlook msg 文件的 代码  发帖心情 Post By:2017/12/11 10:20:00 [只看该作者]

老师好:
       我想使用代码操作.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文件?
感谢老师! 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

感谢老师

 回到顶部