Ответ на активное письмо(Outlook) - VBA

Формулировка задачи:

Добрий день!
Прошу помочь в написании макроса на 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}
есть возможность помочь допилить скрипт?

Решение задачи: «Ответ на активное письмо(Outlook) - VBA»

textual
                            Листинг программы 
                        
                            Set mailOut = Object1.ReplyAll
mailOut.Attachments.Add "D:\out\ответ.doc"