vbscript - VB スクリプトを使用して .msg ファイルの内容を読み取る

Question

何千もの Outlook .msg ファイルを含むフォルダーがあります。

各ファイルから送信者と受信者を読み取り、この情報に基づいて .msg ファイルをフォルダーに移動できる VB スクリプトを作成できるかどうかを知りたいですか?

ありがとう

Answer 1

答えが「はい」または「いいえ」のいずれかであると予想される場合を除き、「はい」または「いいえ」の質問をするべきではありません。

Set ol  = CreateObject("Outlook.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder("C:\some\folder").Files
  If LCase(fso.GetExtensionName(f)) = "msg" Then
    Set msg = ol.CreateItemFromTemplate(f.Path)
    WScript.Echo msg.Sender.Name
    For Each rcpt In msg.Recipients
      WScript.Echo rcpt.Name
    Next
  End If
Next

Answer 2

.msg ファイルの内容を読み取るために、次のアプローチを使用しました。

1. Outlook オブジェクトを使用して、msg ファイルに CreateItemFromTemplate を使用します。
2. この Outlook オブジェクトを使用して、データを .txt ファイルに保存します
3. .txt ファイルが作成されたら、それを読み、必要に応じてデータを使用します。

脚本：

Dim OL : Set OL=CreateObject("Outlook.Application")
Dim Msg ':Set Msg= CreateObject("Outlook.MailItem")
Set Msg = OL.CreateItemFromTemplate("C:\test.msg")
'MsgBox Msg.Subject
Msg.saveAs "C:\test.txt", olDoc
'The above statement will save the contents of .msg file into the designate .txt file 

Set OL = Nothing
Set Msg = Nothing

.txt ファイルが作成されたら、必要に応じて計算に使用します。