Bagaimana saya bisa mencegah Outlook 2007 mengirim email ke alamat email tertentu?

Di tempat kerja, ada beberapa Tony di buku alamat global dan cache lokal saya di dalam klien Outlook 2007.

Saya tidak pernah ingin email masuk ke 2 dari mereka. Apakah ada cara untuk mencegah email agar tidak dikirimkan kepada mereka secara tidak sengaja?

Saya telah membuat makro dengan kode di bawah ini. Itu menciptakan kotak dialog untuk memperingatkan Anda jika Anda akan mengirim email ke seseorang di daftar pengecualian - Anda kemudian dapat mengirim atau membatalkan.

Perhatikan bahwa itu perlu ditambahkan IniOutlookSession bekerja.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
   Select Case LCase(Item.To)
    Case Is <> "alias@domain.com", "alias2@domain3.com", "alias3@domain3.com"
        Item.Send
    Case Else
      Prompt$ = "Are you sure you want to send this to " & Item.To
       If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
         Cancel = True
       End If

    End Select

End Sub