Excel VBAによるOutlookのメール本文にある表の抽出

Question

前提・実現したいこと

Outlookのメールの本文に入っている
表をExcel VBAを使って、表のままExcelの
シートに貼り付けようとしています。

試したこと

VBAでメールから本文を抽出して、
シートに貼り付けることはできたのですが、表組が解除されて単に文字列の羅列になってしまいます。

メールの本文中にある、表のまま抽出するにはどのようにすれば良いでしょうか。
ご存じな方いらっしゃったら、教えて頂ければ幸いです。

尚、Officeは365をつかっております。

Comments

[kuma_kuma_]

VBAのソースを追記下さい。
多分「.body」で取得されているのでしょう...

[kuronekooo]

.bodyで取得しております。
以下にソースを追記いたします。

Sub GetMailData()
Dim objMail As Outlook.Application
Dim Namespace As Outlook.Namespace
Dim Inbox, Folder

Set objOutlook = New Outlook.Application
Set Namespace = objOutlook.GetNamespace("MAPI")

Set Inbox = Namespace.GetDefaultFolder(olFolderInbox)
Set Folder = Inbox.Folders.Item("Test")

Dim i As Long

For i = 1 To Folder.Items.count
With ThisWorkbook.Worksheets("Sheet2")
.Cells(i + 1, 1).Value = Folder.Items(i).Body
End With
Next i
End Sub

Answer 1

まず標準的な方法では無理かと思います
PostItem プロパティ

1. HTMLの状態でBodyを取得
2. そこからHTMLを変換して表の情報を取得
3. 表の情報からExcelへの貼り付け

これが考えられる手順です。

ただ送られてきメールが
ExcelVBAから、OUTLOOK起動して、Excelの表組みをメール本文に貼って送る。WordEditorでOutlook本文編集するのが、コツの様にExcelの表を張り付けて送信されてきた場合可能かもしれません。
(設定できるなら取得もできるはずですが、
Excel以外でも表が作れるため情報がない)

残念ながら当方がOutlookを持っていない為検証確認できません。
よってここまでの回答とさせていただきます。

(後の回答者様よろしくお願いします。)

Comments

[kuronekooo]

ご回答ありがとうございます。
htmlの状態からなら
表の情報取れるかもしれませんね。
検討させて頂きます。