«

I have a web database that just keeps users info for clients
uploading/downloading files. Whenever someone uploads a new file this
script sends out an email to notify the company. Script only works for a
short time once I change my email adddress, then just stops. Can't
figure it out, any help would be great.

Function SendMail(EmailComponent, RemoteHost, SenderAddress, SenderName,
RecipientAddress, RecipientName, strSubject, strBody, isHTML)

if SenderName = "" then SenderName = SenderAddress
if RecipientName = "" then RecipientName = RecipientAddress
IF EmailComponent = "CDONTS" THEN
Set mailObj = Server.CreateObject("CDONTS.NewMail")
mailObj.From = SenderAddress
mailObj.To = RecipientName
mailObj.Subject = strSubject
mailObj.Body = strBody
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
mailObj.Send

(a) stop using CDONTS, use CDO.Message!
http://www.aspfaq.com/2026

(b) you need to narrow down what "stops" means.

Does the script return an error? If so, what is it?

Does the script have on error resume next, encounter an error silently, and
keep running? (hint: remove on error resume next)

Is it your e-mail address only? Have you tried other accounts at the same
domain, and other domains entirely (e.g. hotmail)?
http://www.aspfaq.com/2511

Does the mail get stuck in the queue or pickup folder? Have you looked
there?
http://www.aspfaq.com/2268

Does the mail end up in the badmail folder? Have you looked there?
http://www.aspfaq.com/2254

Have you tried both local and remote SMTP modes?
http://www.aspfaq.com/2339



"Eddie Price" <> wrote in message
news:...
>I have a web database that just keeps users info for clients
>uploading/downloading files. Whenever someone uploads a new file this
>script sends out an email to notify the company. Script only works for a
>short time once I change my email adddress, then just stops. Can't figure
>it out, any help would be great.
>
> Function SendMail(EmailComponent, RemoteHost, SenderAddress, SenderName,
> RecipientAddress, RecipientName, strSubject, strBody, isHTML)
>
> if SenderName = "" then SenderName = SenderAddress
> if RecipientName = "" then RecipientName = RecipientAddress
> IF EmailComponent = "CDONTS" THEN
> Set mailObj = Server.CreateObject("CDONTS.NewMail")
> mailObj.From = SenderAddress
> mailObj.To = RecipientName
> mailObj.Subject = strSubject
> mailObj.Body = strBody
> mailObj.BodyFormat = 0
> mailObj.MailFormat = 0
> mailObj.Send

"Stops" meaning the emails are not sent, sorry bout that =) As far as
errors, there are none and no idea about the error resume. Will check
out CDO.Message tonite=P


Aaron Bertrand [SQL Server MVP] wrote:
> (a) stop using CDONTS, use CDO.Message!
> http://www.aspfaq.com/2026
>
> (b) you need to narrow down what "stops" means.
>
> Does the script return an error? If so, what is it?
>
> Does the script have on error resume next, encounter an error silently, and
> keep running? (hint: remove on error resume next)
>
> Is it your e-mail address only? Have you tried other accounts at the same
> domain, and other domains entirely (e.g. hotmail)?
> http://www.aspfaq.com/2511
>
> Does the mail get stuck in the queue or pickup folder? Have you looked
> there?
> http://www.aspfaq.com/2268
>
> Does the mail end up in the badmail folder? Have you looked there?
> http://www.aspfaq.com/2254
>
> Have you tried both local and remote SMTP modes?
> http://www.aspfaq.com/2339
>
>
>
> "Eddie Price" <> wrote in message
> news:...
>
>>I have a web database that just keeps users info for clients
>>uploading/downloading files. Whenever someone uploads a new file this
>>script sends out an email to notify the company. Script only works for a
>>short time once I change my email adddress, then just stops. Can't figure
>>it out, any help would be great.
>>
>>Function SendMail(EmailComponent, RemoteHost, SenderAddress, SenderName,
>>RecipientAddress, RecipientName, strSubject, strBody, isHTML)
>>
>>if SenderName = "" then SenderName = SenderAddress
>>if RecipientName = "" then RecipientName = RecipientAddress
>>IF EmailComponent = "CDONTS" THEN
>>Set mailObj = Server.CreateObject("CDONTS.NewMail")
>>mailObj.From = SenderAddress
>>mailObj.To = RecipientName
>>mailObj.Subject = strSubject
>>mailObj.Body = strBody
>>mailObj.BodyFormat = 0
>>mailObj.MailFormat = 0
>>mailObj.Send
>
>
>

> "Stops" meaning the emails are not sent,

Yes, but you need to determine WHERE they stop. Are they in the
queue/pickup/badmail folder? Are they stuck in the smtp server?