VBAOutlookで返信してファイルを自動的に添付する

こんにちは、 

私にとって非常に便利なKutoolsアプリケーションをありがとうございます。
アプリケーションで見つからない VBA スクリプトが必要です。 マクロを使用して電子メールに返信するときに、PC 上の特定のファイルを Reply Windows に添付して送信する必要があります。

添付ファイル付きの新しいメッセージを作成するためだけに使用できるこのコードを見ました。 

Sub 

NewMessageWithAttachment()

Dim

oMsg 

As

Outlook.MailItem

Set

oMsg = Application.CreateItem(olMailItem)

With

oMsg

.Attachments.Add 

"C:\Attachment.doc"

.Display

End

With

End

Sub

しかし、メールに返信するときにこの機能が必要です。
敬具