Home > Forums > IIS 5.x & 6.0 > Classic ASP > sendmail.asp

Thread: sendmail.asp

Last post 11-04-2009 4:35 PM by debugmm. 9 replies.

Average Rating Rate It (5)Thank you for the rating!

RSS

Page 1 of 1 (10 items)

Sort Posts:

Shortcuts

Search | Active Posts | Unanswered Posts | View all users

10-25-2009, 2:45 PM

sunsabbath76
Joined on 10-25-2009, 6:31 PM
Posts 9

sendmail.asp

Reply Contact

I'm completely new to asp script and it makes no-sense at all to me.

I'd like to use a flash swf at http://www.pizzapal.co.uk on its contacts page.

Sending email and comments to comments@pizzapal.co.uk.

The FLA's action script is O.K when "check syntax" tested, so guess it must be the asp script.

Can anyone look through the script and indentify the possible brackets which need filling and any other possible errors please?

For a start, I do not know what to fill .From = " " with?

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "intmail"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = " "
.To = "comments@pizzapal.co.uk"
.Subject = "13.31"
.TextBody = "This is the Email Body"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Thank you to all of you for taking the time to read this post.

Sabby76

10-25-2009, 10:06 PM In reply to

qbernard
Joined on 03-26-2003, 2:12 AM
Malaysia
Posts 3,252

Re: sendmail.asp

Reply Contact

.from is the sender address, you can put in your email or system email address. And sometime if the mailserver won't relay the mail if it detects empty sender name.

Anyway, is the mail sent out ? error msgs or?

Cheers,
Bernard Cheah

10-26-2009, 5:00 AM In reply to

sunsabbath76
Joined on 10-25-2009, 6:31 PM
Posts 9

Re: sendmail.asp

Reply Contact

Just tried my emai in .from

Sorry, the server is down

Is the responce

No messge sent out

10-26-2009, 10:18 AM In reply to

tomkmvp
Joined on 03-20-2003, 6:27 AM
Central NJ
Posts 6,254

Re: sendmail.asp

Reply Contact

sunsabbath76:
.Item(sch & "smtpserver") = "intmail"

That does not look like a valid smtp server name.

Tom Kaminski IIS MVP
http://mvp.support.microsoft.com/
http://blogs.iis.net/tomkmvp/
http://www.linkedin.com/pub/8/690/408
http://www.bluesrepublic.org/

10-26-2009, 10:47 AM In reply to

sunsabbath76
Joined on 10-25-2009, 6:31 PM
Posts 9

Re: sendmail.asp

Reply Contact

I agree with you.

Here is where the sendmail.asp is at now and relpying with the same error.

<%
sch = "http://schemas.microsoft.com/cdo/configuration"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "smtp.123-reg.co.uk"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "comments@pizzapal.co.uk"
.To = "comments@pizzapal.co.uk"
.Subject = "13.31"
.TextBody = "This is the Email Body"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

Sorry, the server is down.

10-26-2009, 12:22 PM In reply to

tomkmvp
Joined on 03-20-2003, 6:27 AM
Central NJ
Posts 6,254

Re: sendmail.asp

Reply Contact

For some reason your code can not connect to that server.

What server is that? Are you authorized to connect and send mail through it?

Tom Kaminski IIS MVP
http://mvp.support.microsoft.com/
http://blogs.iis.net/tomkmvp/
http://www.linkedin.com/pub/8/690/408
http://www.bluesrepublic.org/

10-26-2009, 2:41 PM In reply to

sunsabbath76
Joined on 10-25-2009, 6:31 PM
Posts 9

Re: sendmail.asp

Reply Contact

The sendmail.asp page is working, just...
Here is the sendmail script.

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")

With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "intmail"
.update
End With

Set cdoMessage = CreateObject("CDO.Message")

With cdoMessage
Set .Configuration = cdoConfig
.From = "comments@pizzapal.co.uk"
.To = "comments@pizzapal.co.uk"
.Subject = "13.31"
.TextBody = "comments_txt"
.Send
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>

It sends this email.

From: <comments@pizzapal.co.uk> Sent: Mon 5:54 PM
To: <comments@pizzapal.co.uk> Priority: Normal
Subject: 13.31 Type: Text

In the text box it reads

This is the Email Body

Here is the action script from the flash sendmail page

function sendComments() {
   var sender:LoadVars = new LoadVars();
   var responder:LoadVars = new LoadVars();
   var scriptURL:String = "http://www.pizzapal.co.uk/sendmail.asp";
   responder.onLoad = function(success){
      if (success) {
         _global.serverTime = this.timeDate;
         _root.gotoAndStop("output");
      } else {
         _root.gotoAndStop("error");
      }
   };
   sender.fromEmail = fromEmail_txt.text;
   sender.fromName = fromName_txt.text;
   sender.body = comments_txt.text;
   sender.sendAndLoad(scriptURL, responder, "POST");
   _root.gotoAndStop("wait");
}
this._lockroot = true;

Can anyone help with the alignment issues.
I will rest for an 2 hours.
Then start again, any help is much appreciated.
Sabby