Webmail - Not seeming to send

[alweb]

Following code used to work, project has been dormant for a month but back to it now.

dim cdoMail
Set CDOMail = server.CreateObject("CDONTS.NewMail")
With CDOMail
.From = "reg@MyDomainName.com"
.To = Trim(inTo)
.Subject = inSubject
.Body = inBody
.MailFormat = 0
.Send
End With

Not seeming to sned this morning, have I messed something up and forgotten?

Thanks ina advance

Al

[Jacob]

Hi Al,

The From address must be an email address that exists on our mail server otherwise the mail will not go through.

Regards,

Jacob

[alweb]

Hi there Jacob

Has this changed in the last month? I have added a mail account via Helm this am after looking at a different post, but it still seems to not send, I don't get an error.

Alex

[Jacob]

Hi Alex,

Yes, this has changed in the last month, it is setup in order to reduce spam. What is your domain name?

Regards,

Jacob

[alweb]

xxx.com

email user is reg@...

Damn your quick today

[Jacob]

Have they come through now?

[alweb]

Just got two that were sent to texting provider in the last hour, both came together.

Will test again now

[alweb]

Working fine now, you're a supa star thanks

[Jacob]

You're welcome

[i2d2Jon]

Can you allow the www.quo360.com domain to send e-mails as well please.

Jon

[adam]

Try using this code, it will send using a remote server ie mail.catalyst2.com and will give you more freedom to send text/html emails. This uses CDOSYS rather than CDONTs

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.catalyst2.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

[i2d2Jon]

Thanks that seems to be working fine.