Vba Code To Check Set Of Email Ids Which I Give In Code

Question

1.00/5 (1 vote)

See more:

Hello,

I have a set of email address for those email address i should not send any mails even though if i enter their mail in "To" field in new mail when i click send key it through a pop up like XXXX mail id is matched in do not contact list which i mentioned it in code.

can anyone please provide me the code to check mail id in the "TO" field and the code.

i tried the below code.

VB

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
      
  Dim Recipients As Outlook.Recipients
  Dim recip As Outlook.Recipient
  Dim i
  Dim prompt As String
   
On Error Resume Next
 ' use lower case for the address
 ' LCase converts all addresses in the To field to lower case
  
 Set Recipients = Item.Recipients
  For i = Recipients.Count To 1 Step -1
    Set recip = Recipients.Item(i)
     
 If InStr(LCase(recip), "bad@address.com") Then
      prompt$ = "You sending this to this to " & Item.To & ". Are you sure you want to send it?"
       If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
         Cancel = True
       End If
  End If
 
Next i

End Sub

Regards
Pradeep

Posted 29-Oct-15 23:39pm

Member 12100069

Updated 29-Oct-15 23:48pm

phil.o

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2015-10-30T06:10:00

First of all, you have to create new MailItem[^], then you'll be able to send an email[^]. But if you want to catch "sending" event, you're on the right track. Unfortunatelly, you did not provide enough information about "do-not-send-to-these-recipients" list: where and how it was defined. If you would like to check if any recipient email address is equal to "bad@address.com", a code look pretty good, but needs small changes: Obtain the E-mail Address of a Recipient[^]