Solved

Managing incorrect email address in CDO

Posted on 2008-06-20

2 solutions

Medium Priority

460 Views

Last Modified: 2008-06-24

How do I manage the error produced by CDO (in classic ASP/VBScript) when a receiver email address is incorrect?

Right now if the email address is incorrect and 8004020e is produced. I understand why the problem occurs but I don't know how to handle it. This function is used to send out quite a lot of emails so I want to avoid

The best thing (I think) would be to if CDO could return some kind of indication that the address is incorrect without causing the entire script to fail. However, suggestions are more than welcome.

function(smtp,toEmail,fromEmail,emailHeader,emailBody)
	dim Mailer, cdoConfig
	Set Mailer = Server.CreateObject("CDO.Message")
	set cdoConfig = Server.CreateObject("CDO.Configuration")
	cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
	cdoConfig.Fields.Update
	set Mailer.Configuration = cdoConfig
	Mailer.To = toEmail
	Mailer.From = fromEmail
	Mailer.Subject = emailHeader
	Mailer.TextBody = emailBody
	Mailer.Send
	if err.number>0 then
	   sendemail=false
	else
	   sendemail=true
	end if
	Set Mailer = Nothing
	Set cdoConfig = Nothing
end function

Open in new window

Comment

Question by:Alfahane

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

7 Comments

LVL 10

Accepted Solution

by:Dxpert

Dxpert earned 800 total points

ID: 218339552008-06-20

You can use ON ERROR RESUME NEXT and return the bad email from your function instead of the True/False.... see code and pseudo code:

function sendemail (smtp,toEmail,fromEmail,emailHeader,emailBody)
 
	dim Mailer, cdoConfig
 
 
	On Error Resume Next
	
	Set Mailer = Server.CreateObject("CDO.Message")
	set cdoConfig = Server.CreateObject("CDO.Configuration")
	cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
	cdoConfig.Fields.Update
	set Mailer.Configuration = cdoConfig
	Mailer.To = toEmail
	Mailer.From = fromEmail
	Mailer.Subject = emailHeader
	Mailer.TextBody = emailBody
	Mailer.Send
	
	if err.number <> 0 then
		sendemail=toEmail
	else
		sendemail=""
	end if
	
	Set Mailer = Nothing
	Set cdoConfig = Nothing
end function
 
 
 
'ON THE CALLING CODE, YOUR LOOP, YOU WOULD DO SOMETHING LIKE THIS:
 
dim BadEmails, BadEmail
 
'loop emails
do while....
 
	'try to send email
	BadEmail = trim(sendemail(mtp,toEmail,fromEmail,emailHeader,emailBody))
	
	'buld a list of bad emails
	if len(BadEmail) > 0 then
		BadEmails = BadEmails & "," & BadEmail
	end if
	
 
loop
 
if len(trim(BadEmails)) > 0 then
	response.write (BadEmails)
end if

Open in new window

LVL 16

Assisted Solution

by:brad2575

brad2575 earned 200 total points

ID: 218341192008-06-20

if you just want to capture the errors you could put
on error resume next

so if there is an error then the code will not die but continue processing.

then after the Mailer.Send is called you can check (as you are doing) if there is an error. Then do whatever you want to do for errors (log them or just ignore them).

Then do this:
err.clear

clears out the error code so the next loop (or any other code will not error out if you have error trapping).

LVL 10

Expert Comment

by:Dxpert

ID: 218342992008-06-20

Oh yeah.. Err.Clear :-D

if err.number <> 0 then
sendemail=toEmail
Err.Clear
else
sendemail=""
end if

Author Comment

by:Alfahane

ID: 218346832008-06-20

Great! Thanks!! =)

Author Comment

by:Alfahane

ID: 218347342008-06-20

Just realized:

This means that all errors will be supposed to be a problem with email validity.

I remember there's one error that has to be with the size of the email.

Is there no way that confirm that the error is in fact an email validity issue?

LVL 10

Expert Comment

by:Dxpert

ID: 218548912008-06-24

I guess if you figure out what the error number is, then you can use that. For instance, if that error number would be 55555555 then you could do something like this:

if err.number <> 0 then
      if err.number <> 55555555 then
            sendemail=toEmail
            Err.Clear
      end if
else
      sendemail=""
end if

LVL 10

Expert Comment

by:Dxpert

ID: 218549072008-06-24

to figure out what that error is, you can, send a very long email, then use this IF statement instead:

if err.number <> 0 then
response.write("Error Number: " & err.number & "<br />")
response.write("Error Description: " & err.description & "<br />")
response.end
end if

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Classic ASP script for Pausing a script, without sending the CPU to 100%

Article by: G_H

Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…

VBScript and Task Scheduler 2.0 : Listing Scheduled Tasks

Article by: ltlbearand3

Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script. Many of these have come from the web or adaptations from snippets I find on the Web. Periodically I add to them when I come…

VB Script

How to Automatically Add a Mailchimp Signup Form onto a WordPress Sidebar

Video by: Alex

The purpose of this video is to demonstrate how to set up the WordPress backend so that each page automatically generates a Mailchimp signup form in the sidebar. This will be demonstrated using a Windows 8 PC. Tools Used are Photoshop, Awesome…

How To Make a Graph with Microsoft Access

Video by: crystal

Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…