|
|
i can't find a good code to check if e-mail exists. im trying to do this with cdo. maybe someone could sugest some source?
or maybe could help to make it...
here is what im trying to do
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iconf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<SMTP Server>"
.Update
End With
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "<hr>"
strHTML = strHTML & "This another section of the message...</BR>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
With iMsg Set
.Configuration = iConf
.To = "<valid e-mail address>"
.From = "<valid e-mail address>"
.Subject = "This is a test CDOSYS message (Setting DSN options)"
.HTMLBody = strHTML
.fields("urn:schemas:mailheader:disposition-notification-to") = "<valid e-mail address>"
.fields("urn:schemas:mailheader:return-receipt-to") = "<valid e-mail address>"
.DSNOptions = cdoDSNSuccessFailOrDelay
.DSNOptions = 14
.fields.update
.Send
End With
i'm sending message to the e-mail i want to check for validation. and i can get confirmation that mail was sent succesfuly. but the problem is that i get it by mail. i want to check if e-mail is valid in the source code. if its possible
thank you
|
|
|
|
|
|
|
|
Boogy
