Tag: msg

无法打开.msg文件

我有大约90.msg，我需要打开的Outlook文件，将Excel附件转换为.csv文件并保存。 目前，下面的代码是简单地打开.msgoutlook文件，但是出现错误： 我如何允许打开.msg文件。 脚本： Sub OpenMSGRenameDownloadAttachement() Dim objOL As Outlook.Application Dim Msg As Outlook.MailItem Dim MsgCount As Integer Set objOL = CreateObject("Outlook.Application") 'Change the path given month, ie. do this for Jan, Feb, April inPath = "C:\January Messages" thisFile = LCase(Dir(inPath & "\*.msg")) Do While thisFile <> "" Set Msg = objOL.Session.OpenSharedItem(thisFile) Msg.Display MsgBox Msg.Subject […]