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(byVal sMessage, byVal asToAddressesArray)
Dim obOrderEmail
' Send the email
Set obOrderEmail = CreateObject("CDONTS.NewMail")
with obOrderEmail
.BodyFormat = 1
.MailFormat = 0
.From = sSystemAutomatedEmailSenderAddress
.Value("Reply-To") = sSystemAutomatedEmailReplyToAddress
.To = join(asToAddressesArray,";")
.Subject = "Billing Report"
.Body = sMessage
.Send
end with
Set obOrderEmail = Nothing
end sub
----------------------------
