Добрий день!

Прошу помочь в написании макроса на VBA для ответа на активное письмо.
В ответ нужно подтянуть тело активного письма и тему,
а также подтянуть вложение D:\out\ответ.doc
Заранее спасибо!

На просторах инета нашел макрос которий обращается к текущему сообщению, ппитался переделать под себя, но
не получилось

_{Sub otvet()
Dim MailItem1 As MailItem
Dim myinspector As Outlook.Inspector
Dim objMail As MailItem
Dim Object1 As Object
Set Object1 = Application.ActiveExplorer.Selection.Item(1)
Set mailOut = mailIn.ReplyAll
Attachments.Add "D:\out\ответ.doc"
mailOut.Send
End Sub}

оригинал
_{Sub IsItMailItem1()
Dim MailItem1 As MailItem
Dim myinspector As Outlook.Inspector
Dim Object1 As Object
Set Object1 = Application.ActiveExplorer.Selection.Item(1)
If Object1.Class = olMail Then
MsgBox "Это сообщение"
Else: MsgBox "Это не сообщение"
End If
End Sub}

есть возможность помочь допилить скрипт?