O
Owen
Hi, can somebody help me please... I'm trying to set up a very simple
asp page that sends me an email when it runs. This is just to try and
get CDOSYS working so I can send out emails from my website.
Everything is fine right up until I execute the ".Send" method.
What could be wrong? What does the error mean?
The output from the source below is:
"test1 error '8004020f'
/mailtest.asp, line 34"
Here it is:
---------------- START ----------------------------
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
<%
DIM sBody, sFrom, sSender, sSubject, sTo, x
sBody = "Test content body"
sFrom = "(e-mail address removed)" ' (binarybaby.co.uk is my website domain)
sSender = "(e-mail address removed)"
sSubject = "Test"
sTo = "(e-mail address removed)"
' mail section - setup of cdo for 2000
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "127.0.0.1"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = sTo
.From = sFrom
.Sender = sSender
.Subject = sSubject
.TextBody = sBody
response.Write "test1" ' << gets this far
.Send ' << this is where it falls over
(
response.Write "test2" ' << doesnt get this far
End With
response.Write "sent the mail to " & sTo
%>
------------------- END -------------------------
Any help would be great.
Thanks!
Owen
asp page that sends me an email when it runs. This is just to try and
get CDOSYS working so I can send out emails from my website.
Everything is fine right up until I execute the ".Send" method.
What could be wrong? What does the error mean?
The output from the source below is:
"test1 error '8004020f'
/mailtest.asp, line 34"
Here it is:
---------------- START ----------------------------
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
<%
DIM sBody, sFrom, sSender, sSubject, sTo, x
sBody = "Test content body"
sFrom = "(e-mail address removed)" ' (binarybaby.co.uk is my website domain)
sSender = "(e-mail address removed)"
sSubject = "Test"
sTo = "(e-mail address removed)"
' mail section - setup of cdo for 2000
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "127.0.0.1"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = sTo
.From = sFrom
.Sender = sSender
.Subject = sSubject
.TextBody = sBody
response.Write "test1" ' << gets this far
.Send ' << this is where it falls over
response.Write "test2" ' << doesnt get this far
End With
response.Write "sent the mail to " & sTo
%>
------------------- END -------------------------
Any help would be great.
Thanks!
Owen