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

Question

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

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 

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