I'm using the default script for sending emails from my website via CDO.
The script generally works, but recently I've been unable to send an email to a list of 500 clients.
I'm sending it to the recipients under .BCC (so they don't see each other) and the list is semicolon-space (; ) delimited.
As I said, the script works when I choose a single recipient, and in the past it worked for multiple recipients.
Is there a limit to the length of the recipient list?
The mail is going out with an 86kb attachment. Is there a size limit?
My script is below:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Message from X"
myMail.From="xxx@xxx.com"
myMail.To= "eee@xxx.com"
myMail.Bcc = MailingList
myMail.TextBody = request("Msgbody")
If request("attachment") <> "" then
sFilepath = "/Attachments"
sServerPath = Server.MapPath(sFilePath)
if not right(sServerPath,1) = "\" THEN sServerPath = sServerPath & "\"
sServerPath = sServerPath & request("attachment")
myMail.AddAttachment sServerPath
end if
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
The xxxx are in place of my actual addresses, and the variable MailingList is the list of emails (sdfdssf@dsfsdf.com; sfsd@sdfsd.com; fsdsfs@fdfd.com)
Thanks all.
The script generally works, but recently I've been unable to send an email to a list of 500 clients.
I'm sending it to the recipients under .BCC (so they don't see each other) and the list is semicolon-space (; ) delimited.
As I said, the script works when I choose a single recipient, and in the past it worked for multiple recipients.
Is there a limit to the length of the recipient list?
The mail is going out with an 86kb attachment. Is there a size limit?
My script is below:
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Message from X"
myMail.From="xxx@xxx.com"
myMail.To= "eee@xxx.com"
myMail.Bcc = MailingList
myMail.TextBody = request("Msgbody")
If request("attachment") <> "" then
sFilepath = "/Attachments"
sServerPath = Server.MapPath(sFilePath)
if not right(sServerPath,1) = "\" THEN sServerPath = sServerPath & "\"
sServerPath = sServerPath & request("attachment")
myMail.AddAttachment sServerPath
end if
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
The xxxx are in place of my actual addresses, and the variable MailingList is the list of emails (sdfdssf@dsfsdf.com; sfsd@sdfsd.com; fsdsfs@fdfd.com)
Thanks all.