Makro programu Outlook działa dwa razy

Używam makra, aby wysłać automatyczną odpowiedź na SMS-y, które przychodzą mi do głowy. To działa, ale wysyła odpowiedź do naszych klientów dwa razy za każdym razem. Wszelkie porady, jak to zatrzymać. Makro to:

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