CDONTS error - too much data?

[Griff]

I have been using the CDONTS component on Windows 2000 to send emails for a
long time now (code below).

However, over time, the report that I am sending has got rather longer and
it now gives me an "unknown exception" error. However, I know that it's
because there's now too much data (If I remove some of the text it goes
fine).

I've "compacted" the message as much as I can, but I've got up to the limit
now of how much I can compact it by...

I've tried to write it to a file and attach that, but the same size limit
appears to hold for attachments too.

What to do....?

Thanks in advance

Griff

----------------
public sub sendThatEmail(b yVal sMessage, byVal asToAddressesAr ray)
Dim obOrderEmail
' Send the email
Set obOrderEmail = CreateObject("C DONTS.NewMail")
with obOrderEmail
.BodyFormat = 1
.MailFormat = 0
.From = sSystemAutomate dEmailSenderAdd ress
.Value("Reply-To") = sSystemAutomate dEmailReplyToAd dress

.To = join(asToAddres sesArray,";")

.Subject = "Billing Report"
.Body = sMessage
.Send
end with
Set obOrderEmail = Nothing
end sub
----------------------------

[Steven Burn]

Ditch CDONTS and switch to CDO.

http://aspfaq.com/show.asp?id=2026
http://aspfaq.com/show.asp?id=2119

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Griff" <Ho*****@The.Mo on> wrote in message
news:es******** ******@TK2MSFTN GP15.phx.gbl...

I have been using the CDONTS component on Windows 2000 to send emails for a long time now (code below).

However, over time, the report that I am sending has got rather longer and
it now gives me an "unknown exception" error. However, I know that it's
because there's now too much data (If I remove some of the text it goes
fine).

I've "compacted" the message as much as I can, but I've got up to the limit now of how much I can compact it by...

I've tried to write it to a file and attach that, but the same size limit
appears to hold for attachments too.

What to do....?

Thanks in advance

Griff

----------------
public sub sendThatEmail(b yVal sMessage, byVal asToAddressesAr ray)
Dim obOrderEmail
' Send the email
Set obOrderEmail = CreateObject("C DONTS.NewMail")
with obOrderEmail
.BodyFormat = 1
.MailFormat = 0
.From = sSystemAutomate dEmailSenderAdd ress
.Value("Reply-To") = sSystemAutomate dEmailReplyToAd dress

.To = join(asToAddres sesArray,";")

.Subject = "Billing Report"
.Body = sMessage
.Send
end with
Set obOrderEmail = Nothing
end sub
----------------------------

[Griff]

Looks like the way forward - thanks.

One quick question:

.Item(sch & "smtpserver ") = "<enter_mail.se rver_here>"

What would one expect for "<enter_mail.se rver_here>" ? Not sure what to add
(or in what format)

Thanks!

Griff

PS One minor thing - Microsoft seem to have changed their pages around, so
some of the links to their site don't work :-(

[Steven Burn]

You'll need to contact Aaron (ASPFAQ owner) about the broken links... (see
the "Feedback" link on the same page).

With regard to "<enter_mail.se rver_here>", this would be in the form;

"smtp.yourmails erver.com"

For example, had you been using the Microsoft server, this would be;

..Item(sch & "smtpserver ") = "maila.!microso ft.com"

! added by me to prevent bot's

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Griff" <Ho*****@The.Mo on> wrote in message
news:OS******** *****@tk2msftng p13.phx.gbl...

Looks like the way forward - thanks.

One quick question:

.Item(sch & "smtpserver ") = "<enter_mail.se rver_here>"
What would one expect for "<enter_mail.se rver_here>" ? Not sure what to

add (or in what format)

Thanks!

Griff

PS One minor thing - Microsoft seem to have changed their pages around, so
some of the links to their site don't work :-(

[Steven Burn]

As an aside, if you don't have your own dedicated mail server, use your
ISP's (if permitted) or, get yourself a copy of Argosoft;

www.argosoft.com

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Griff" <Ho*****@The.Mo on> wrote in message
news:OS******** *****@tk2msftng p13.phx.gbl...

Looks like the way forward - thanks.

One quick question:

.Item(sch & "smtpserver ") = "<enter_mail.se rver_here>"
What would one expect for "<enter_mail.se rver_here>" ? Not sure what to

add (or in what format)

Thanks!

Griff

PS One minor thing - Microsoft seem to have changed their pages around, so
some of the links to their site don't work :-(

[Griff]

Fantastic help - thanks Steven

[Griff]

The example given on:
http://www.w3schools.com/asp/asp_send_email.asp

Just shows the code required as:
<%
Set myMail=CreateOb ject("CDO.Messa ge")
myMail.Subject= "Sending email with CDO"
myMail.From="my ****@mydomain.c om"
myMail.To="so** ***@somedomain. com"
myMail.TextBody ="This is a message."
myMail.Send
set myMail=nothing
%>...without the need for setting up the configuration
details/fields.The CDONTS code (that this is replacing) did not have any
information for the SMTP server (it's all running locally) so would this be
able to pick up those details too?ThanksGriff

[Griff]

Yup - that seems to work fine for my needs.