macro do Outlook executando duas vezes

Question

Eu uso uma macro para enviar uma resposta automática para textos que chegam à minha perspectiva. Isso funciona, mas envia a resposta aos nossos clientes duas vezes a cada vez. Qualquer conselho de como parar isso. A macro é:

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