Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Course Of The Month
5 days, 20 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Managing incorrect email address in CDO
Posted on 2008-06-20
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.
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
[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
4-
2
7 Comments
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
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).
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).
Oh yeah.. Err.Clear :-D
if err.number <> 0 then
sendemail=toEmail
Err.Clear
else
sendemail=""
end if
if err.number <> 0 then
sendemail=toEmail
Err.Clear
else
sendemail=""
end if
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?
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?
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
if err.number <> 0 then
if err.number <> 55555555 then
sendemail=toEmail
Err.Clear
end if
else
sendemail=""
end if
Featured Post
MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
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…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special.
It's completely agentless, but does let you create an agent, if you desire.
It offers powerful scalability …
Suggested Courses
Course of the Month5 days, 20 hours left to enroll
707 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.