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

— AlexW1604
źródło

Jak uruchamiasz makro?

— ᴇcʜιᴇ007

Zgodnie z regułą: kiedy wiadomość przychodzi z SMS-em w temacie i tylko na tym komputerze. Uruchom 'Project1.ThisOutlookSession.ReplytoMessage i przestań przetwarzać więcej reguł

— AlexW1604

Czy potwierdziłeś, że nie masz więcej niż kopię tej reguły? Ponadto, czy otrzymują dwa różne e-maile, które są identyczne (nagłówki i wszystkie?), Czy tylko widzą ciało wiele razy, czy ???

— ᴇcʜιᴇ007

Mam tylko 1 kopię reguły. Zasada dotyczy tylko wtedy, gdy jest w temacie. Myślę, że makro działa tylko dwa razy

— AlexW1604

Umieść punkt przerwania na tym makrze, aby dowiedzieć się, dlaczego to makro jest uruchamiane dwukrotnie.

— thims