vbscript - vbscript を使用してメールを単一のテキスト ファイルにエクスポートする

Question

Outlook の受信トレイにあるすべてのメールを 1 つのテキスト ファイルにエクスポートするにはどうすればよいですか? 今のところ、メールをテキスト ファイルにエクスポートするコードがありますが、各メールは別々のテキスト ファイルに保存されます。単一のテキストファイルが必要です

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 

これは、テキスト ファイルに保存する以前のコードですが、メールごとに個別のテキスト ファイルが作成されます。