Outlookのメールをうまくエクスポートして・・・

質問

例えばメール本文に

＜名前＞　　山田○○
＜住所＞　　東京都○○・・・・
＜ＴＥＬ＞　03-○○・・　

という内容のものを100件分くらい効率よく

名前　　　　住所　　　　　　　　ＴＥＬ
山田○○　東京都○○・・・・　　03-○○・・　
田中○○　神奈川県○・・・・　　044-○○・・

といったエクセルデータとして出来ないものでしょうか？
よろしくお願いします。

回答No.4

tubumame · ベストアンサー

こんにちは。

Private Sub doResearch(ByRef parentFolder As MAPIFolder)

Dim childFolder As MAPIFolder
Dim curMail As MailItem
Dim mailCount As Integer
Dim folderCount As Integer

For folderCount = 1 To parentFolder.Folders.Count

Set childFolder = parentFolder.Folders.Item(folderCount)

For mailCount = 1 To childFolder.Items.Count

If TypeOf childFolder.Items.Item(mailCount) Is MailItem Then

Set curMail = childFolder.Items.Item(mailCount)

'この部分を消してしまっています！！
'↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
End If
Next
'↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑
'この部分を消してしまっています！！

If childFolder.Folders.Count <> 0 Then doResearch childFolder

Next

End Sub

これでおそらく実行出来るようになるはずです。
しかし、実行したからといって何かが起こるわけではありません。一番最初の回答に書いたように、指定部分にメール本文の内容から<名前>,<住所>,<TEL>をさがして、それぞれの値を取得するようなロジックを記述しなければなりません。メール本文はurMail.BodyでStringとして取得できます。あとは単に文字列解析になります。

お礼

すいませんありがとうございます。
マクロ勉強して出直してきます。