Sending emails with CDO, getting adresses from a DB

<i><b>Originally posted by : Sebastian (S.Hofferberth@web.de)</b></i><br />Hello<br /><br />I am trying to write a page that sends the same email-message to multiple adresses selected from a database.<br /><br />My problem is that not all entries in the database contain a valid email, which creates a "type mismatch" <br /><br />So my question: Is there a way to check if the entry is a valid email adress?<br /><br />Thanks for any help<br /><br />

<i><b>Originally posted by : tricia (trishkitts@yahoo.com)</b></i><br />Sebastian - here's a function that you can run your email addresses through (not 100% guaranteed):<br /><br />'********************<br />'in Main code:<br />if ValidEmail(useremail) then<br />'send<br />else<br />'don't send<br />end if<br />'********************<br />Function ValidEmail(address)<br /> Dim GEval<br /> blValidEmail = False<br /> if instr(address, "@") > 1 then<br /> if instr(address, " ") = 0 then<br /> if instr(address, ",") = 0 then<br /> if instr(address, ".") > 0 then<br /> if instr(address, "'") = 0 then blValidEmail = True<br /> end if<br /> end if<br /> end if<br /> end if<br /> end if<br /> ValidEmail = blValidEmail<br />End Function<br /><br /><br />------------<br />Sebastian at 1/25/2001 7:19:17 AM<br /><br />Hello<br /><br />I am trying to write a page that sends the same email-message to multiple adresses selected from a database.<br /><br />My problem is that not all entries in the database contain a valid email, which creates a "type mismatch" <br /><br />So my question: Is there a way to check if the entry is a valid email adress?<br /><br />Thanks for any help<br /><br />