A beginner question: Send Mail in ASP using CDONTS

TheMSsForum.com: The Microsoft Software Forum

Hi all,

I had to write a page in ASP which sends an email. I googled and was
able to write the following code:

<html>
<body>
<%
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.To = "XXXXXXXXXXXX@XXXXXX.COM"
Mail.From = "YYYYYYYYY@YYYYY.COM"
Mail.Subject = "Test MAIL Subject"
Mail.Body = " Body Body Body Body Body Bodyody Body Body"
If Mail.Send Then
Response.Write("Mail has been sent successfully")
Else
Response.Write("Mail Sending Failed")
End If
Set Mail = nothing
%>
</body>
</html>

When I run this script on a shared hosting server, It's saying "Mail
Sending Failed". I had never written ASP code before and couldn't find
what the reason is.. I also checked whether CDONTS.NewMail component
is available.

Please help me out..

Thanks in advance,
Prasad.
Top

RE: A beginner question: Send Mail in ASP using CDONTS by Old

Old
Sun May 25 23:00:02 CDT 2008

Your host may not allow CDONTS. Microsoft stopped shipping CDONTS as a
standard part of the Windows Server a few years back. You host *CAN* add it,
but may have chosen not to.

It's possible that your host supports only CDOSYS, for example. And it's
even possible that you host doesn't support *any* MS email component and uses
one from a third party.

You should contact your host for the proper component to use. Hopefully,
your how will have a sample page in their FAQs.

If you can't get help from your host, then it might be time to change hosts.

"Prasad" wrote:

> Hi all,
>
> I had to write a page in ASP which sends an email. I googled and was
> able to write the following code:
>
> <html>
> <body>
> <%
> Set Mail = Server.CreateObject("CDONTS.NewMail")
> Mail.To = "XXXXXXXXXXXX@XXXXXX.COM"
> Mail.From = "YYYYYYYYY@YYYYY.COM"
> Mail.Subject = "Test MAIL Subject"
> Mail.Body = " Body Body Body Body Body Bodyody Body Body"
> If Mail.Send Then
> Response.Write("Mail has been sent successfully")
> Else
> Response.Write("Mail Sending Failed")
> End If
> Set Mail = nothing
> %>
> </body>
> </html>
>
> When I run this script on a shared hosting server, It's saying "Mail
> Sending Failed". I had never written ASP code before and couldn't find
> what the reason is.. I also checked whether CDONTS.NewMail component
> is available.
>
> Please help me out..
>
> Thanks in advance,
> Prasad.
>
>
Top

Re: A beginner question: Send Mail in ASP using CDONTS by Anthony

Anthony
Wed May 28 13:06:52 CDT 2008


"Prasad" <prasadk14@gmail.com> wrote in message
news:fdb5b5f4-531c-4cd3-abf2-deab1530f808@w8g2000prd.googlegroups.com...
> Hi all,
>
> I had to write a page in ASP which sends an email. I googled and was
> able to write the following code:
>
> <html>
> <body>
> <%
> Set Mail = Server.CreateObject("CDONTS.NewMail")
> Mail.To = "XXXXXXXXXXXX@XXXXXX.COM"
> Mail.From = "YYYYYYYYY@YYYYY.COM"
> Mail.Subject = "Test MAIL Subject"
> Mail.Body = " Body Body Body Body Body Bodyody Body Body"
> If Mail.Send Then
> Response.Write("Mail has been sent successfully")
> Else
> Response.Write("Mail Sending Failed")
> End If
> Set Mail = nothing
> %>
> </body>
> </html>
>
> When I run this script on a shared hosting server, It's saying "Mail
> Sending Failed". I had never written ASP code before and couldn't find
> what the reason is.. I also checked whether CDONTS.NewMail component
> is available.
>

Here is some example code to send email using CDOSYS:-

Const cdoSendUsingMethod =
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer =
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPickupDirectory =
"http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
Const cdoSMTPServerPort =
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2

Dim oMsg : Set oMsg = CreateObject("CDO.Message")
Dim oConfig : Set oConfig = CreateObject("CDO.Configuration")

With oConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mysmtp.myserver.com"
.Item(cdoSMTPServerPort) = 25
.Update
End With

oMsg.From = "Me <me@mymail.myserver.com>"
oMsg.To = "Bloke <bloke@somewere.com>"
oMsg.Subject = "Test"
oMsg.HTMLBody = "<html><body>Hello World</body></html>"
Set oMsg.Configuration = oConfig


oMsg.Send

--
Anthony Jones - MVP ASP/ASP.NET


Top

Re: A beginner question: Send Mail in ASP using CDONTS by Prasad

Prasad
Mon Jun 02 03:23:33 CDT 2008

On May 28, 11:06 pm, "Anthony Jones" <A...@yadayadayada.com> wrote:
> "Prasad" <prasad...@gmail.com> wrote in message
>
> news:fdb5b5f4-531c-4cd3-abf2-deab1530f808@w8g2000prd.googlegroups.com...
>
>
>
> > Hi all,
>
> > I had to write a page in ASP which sends an email. I googled and was
> > able to write the following code:
>
> > <html>
> > <body>
> > <%
> > Set Mail = Server.CreateObject("CDONTS.NewMail")
> > Mail.To = "XXXXXXXXX...@XXXXXX.COM"
> > Mail.From = "YYYYYY...@YYYYY.COM"
> > Mail.Subject = "Test MAIL Subject"
> > Mail.Body = " Body Body Body Body Body Bodyody Body Body"
> > If Mail.Send Then
> > Response.Write("Mail has been sent successfully")
> > Else
> > Response.Write("Mail Sending Failed")
> > End If
> > Set Mail = nothing
> > %>
> > </body>
> > </html>
>
> > When I run this script on a shared hosting server, It's saying "Mail
> > Sending Failed". I had never written ASP code before and couldn't find
> > what the reason is.. I also checked whether CDONTS.NewMail component
> > is available.
>
> Here is some example code to send email using CDOSYS:-
>
> Const cdoSendUsingMethod =
> "http://schemas.microsoft.com/cdo/configuration/sendusing"
> Const cdoSMTPServer =
> "http://schemas.microsoft.com/cdo/configuration/smtpserver"
> Const cdoSMTPServerPickupDirectory =
> "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
> Const cdoSMTPServerPort =
> "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
>
> Const cdoSendUsingPickup = 1
> Const cdoSendUsingPort = 2
>
> Dim oMsg : Set oMsg = CreateObject("CDO.Message")
> Dim oConfig : Set oConfig = CreateObject("CDO.Configuration")
>
> With oConfig.Fields
> .Item(cdoSendUsingMethod) = cdoSendUsingPort
> .Item(cdoSMTPServer) = "mysmtp.myserver.com"
> .Item(cdoSMTPServerPort) = 25
> .Update
> End With
>
> oMsg.From = "Me <m...@mymail.myserver.com>"
> oMsg.To = "Bloke <bl...@somewere.com>"
> oMsg.Subject = "Test"
> oMsg.HTMLBody = "<html><body>Hello World</body></html>"
> Set oMsg.Configuration = oConfig
>
> oMsg.Send
>
> --
> Anthony Jones - MVP ASP/ASP.NET


Hi..
Thank you all for your replies.. I git it worked. The actual problem
was with the "From Address", which should be of the same domain I have
taken. :)

Cheers,
Prasad
Top