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

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