vbscript - 使用 vbscript 将邮件导出到单个文本文件

Question

如何将Outlook收件箱中的所有电子邮件导出到单个文本文件？到目前为止，我有将邮件导出到文本文件的代码，但每封邮件都保存在单独的文本文件中。我需要单个文本文件

Sub saveEmailTxt()
Dim objItem As Object 

Dim iCount As Integer 'iterate over all Items in the current folder and save the body as textfile in c:\' 

For Each objItem In ActiveExplorer.CurrentFolder.Items 
objItem.SaveAs "C:\Mail" & CStr(iCount) & ".txt", olSaveAsText 
iCount = iCount + 1 
Next 

End Sub 

这是我之前的代码，它将保存到文本文件中，但它会为每封邮件创建单独的文本文件。