Migrating from ASP to ASP.NET

Re: Sending email using CDO

matthisco — Wed, 13 May 2009 10:15:26 GMT

Thanks for you reply, I have this working now. However, do you know how I can guard against spam?

My code is below, thankyou again

<%

Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
Set MyMail = CreateObject("cdo.message")
MyMail.From = mailFrom
MyMail.To = mailTo
MyMail.Subject = mailSubject
MyMail.HTMLBody = mailMessage
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
End Sub

Dim mailFrom, mailTo, mailSubject, mailMessage, mailServer

mailFrom = "xx@xx.nhs.uk"
mailTo = "xxx@xx.co.uk"
mailSubject = "This is my subject"
mailMessage = "<html><body>This is my message</body><html>"
mailServer = "smtp.fasthosts.co.uk"

Call sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
%>

Re: Sending email using CDO

qwe123kids — Tue, 12 May 2009 11:40:51 GMT

Hi,

//Mail code U look the link below

http://support.jodohost.com/showthread.php?p=52440

Reason for error may The SMTP server may Be rejecting the Mail or More Information Check the below link

http://classicasp.aspfaq.com/email/why-does-cdo-message-give-me-8004020f-errors.html

Check the above link

Sending email using CDO

matthisco — Tue, 12 May 2009 11:15:17 GMT

Hi, Sorry if this is the wrong forum.

I'm trying to send an email uding CDO. Can anyone please help?

form ---------------------

code----------------------------

<%
dim oCdoMsg, oCdoConfg, strReferer, strServer, strClientIP, strServerIP, blnSpam

set oCdoMsg = server.createobject("CDO.Message")

strReferer = request.servervariables("HTTP_REFERER")
strServer = Replace(request.servervariables("SERVER_NAME"), "www.", "")
strClientIP = request.servervariables("REMOTE_ADDR")
strServerIP = request.servervariables("LOCAL_ADDR")
strFrom = "noreply@" & strServer

intComp = inStr(strReferer, strServer)
If intComp > 0 Then
blnSpam = False
Else
' Spam Attempt Block
blnSpam = True
End If

oCdoMsg.to = request.form("email")
oCdoMsg.from = strFrom
oCdoMsg.Subject = "CDO Test Mail"
oCdoMsg.Textbody = "This test mail has been sent from server "
oCdoMsg.Textbody = oCdoMsg.Textbody & request.servervariables("LOCAL_ADDR") & " via CDO mail objects."

strMSSchema = "http://schemas.microsoft.com/cdo/configuration/"
Set oCdoConfg = Server.CreateObject("CDO.Configuration")
oCdoConfg.Fields.Item(strMSSchema & "sendusing") = 2
oCdoConfg.Fields.Item(strMSSchema & "smtpserver") = "smtp.fasthosts.co.uk"
oCdoConfg.Fields.Update
Set oCdoMsg.Configuration = oCdoConfg

If NOT blnSpam Then
oCdoMsg.send
strResult = "Mail Sent."
Else
strResult = "Mail Not Sent."
End If
response.write strResult

set oCdoMsg = nothing
set oCdoConfg = nothing

%>

error:

error '8004020f'

/mail.asp, line 35