Макрос Outlook работает дважды

Question

Я использую макрос для отправки автоответа на тексты, которые приходят в мой кругозор. Это работает, но каждый раз отправляет ответ нашим клиентам. Любой совет, как это остановить. Макрос это:

Sub ReplytoMessage(Item As Outlook.MailItem)
Set myReply = Item.Reply
If Item.BodyFormat = olFormatHTML Then
myReply.HTMLBody = "Thank you for your message. We will deal with it shortly." & vbCrLf & myReply.HTMLBody
Else
 myReply.Body = "Thank you for your message. We will deal with it shortly." & vbCrLf & myReply.Body
End If
myReply.Send
End Sub