更新:我找到了一个名为Outlook Redemption的第三方COM库,目前对我来说工作正常.如果您通过.NET中的COM-Interop使用它,请不要忘记在完成后释放每个COM对象,否则您的应用程序会随机崩溃.
这是使用Huseyint发现的Outlook Redemption的一些示例VBA代码.
Public Sub ProcessMail()
Dim Sess As RDOSession
Dim myMsg As RDOMail
Dim myString As String
Set Sess = CreateObject("Redemption.RDOSession")
Set myMsg = Sess.GetMessageFromMsgFile("C:\TestHarness\kmail.msg")
myString = myMsg.Body
myMsg.Body = Replace(myString, "8750", "XXXX")
myMsg.Save
End Sub
Run Code Online (Sandbox Code Playgroud)