我编写了一个 VBA 应用程序，它在 Outlook 中打开一个文件夹，然后遍历消息。我需要将消息正文(经过一些调整)写入单个平面文件。我的代码如下...
Private Sub btnGo_Click()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objMail As mailItem
Dim count As Integer
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
count = 0
For Each objMail In objInbox.Items
lblStatus.Caption = "Count: " + CStr(count)
ProcessMailItem (objMail)
count = count + 1
Next objMail
End If
End Sub
有问题的部分是“ProcessMailItem”。由于我并不太关心现阶段的性能，因此非常低效的“打开、附加、关闭”文件方法适用于本示例。
我知道我可以花一些时间用谷歌查找答案，但我先在这里检查，没有很好的答案。作为 Stackoverflow 的粉丝，我希望把它放在这里能帮助 future 的开发人员寻找答案。谢谢你的耐心。
最佳答案
您可以在不使用任何对象的情况下写入文件，只需使用内置的 VBA 文件工具:
Open "C:\file.txt" for append as 1
Print #1, SomeStringVar
Close #1
关于vba - 使用 VBA 将电子邮件消息写入 Outlook 中的平面文件，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/400941/