Скопировать электронную почту в буфер обмена с помощью Outlook VBA

Как мне скопировать электронное письмо в буфер обмена, а затем вставить его в Excel с неповрежденными таблицами?

Я использую Outlook 2007 и хочу выполнить аналог

 «Щелкните по электронной почте> Выбрать все> Копировать> Перейти в Excel> Выбрать ячейку> Вставить». 
 

У меня есть Excel Объектная модель довольно хорошо проработана, но у нет опыта работы с Outlook, кроме следующего кода.

Dim mapi As NameSpace
Dim msg As Outlook.MailItem
Set mapi = Outlook.Application.GetNamespace("MAPI")
Set msg = mapi.Folders.Item(1).Folders.Item("Posteingang").Folders.Item(1).Folders.Item(7).Items.Item(526)