vba 读取msg文件
2020-05-26 本文已影响0人
孙友强
废话不多说，直接上代码！
Sub ReadContentFromMsg()
Dim App As Object
Dim Msg As Object Set App = CreateObject("Outlook.Application")
Set Msg = App.Session.OpenSharedItem("C:\Users\Desktop\test.msg")
MsgBox Msg.Subject
Set App = Nothing
Set Msg = Nothing
End Sub
