"... às vezes o Outlook envia um email para você mesmo quando você clica no botão" Responder a todos ". Este exemplo de VBA verifica a lista de destinatários antes de enviar e remove determinados endereços dela.
Private Sub RemoveRecipients(Item As Outlook.MailItem)
Dim RemoveThis As VBA.Collection
Dim Recipients As Outlook.Recipients
Dim R As Outlook.Recipient
Dim i&, y&
Set RemoveThis = New VBA.Collection
' here add addresses
RemoveThis.Add "[email protected]"
RemoveThis.Add "[email protected]"
Set Recipients = Item.Recipients
For i = Recipients.Count To 1 Step -1
Set R = Recipients.Item(i)
For y = 1 To RemoveThis.Count
If LCase$(R.Address) = LCase$(RemoveThis(y)) Then
Recipients.Remove i
Exit For
End If
Next
Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
RemoveRecipients Item
End Sub
Se você não estiver familiarizado com o VBA, consulte link Ou Como eu adiciono o VBA no MS Office?