How to send E-mail from ASP

Hannibal · March 9th, 2010, 01:27 AM

Hi,

How to send e-mail from ASP page?
In the mail content, I would like to keep a button.

How to achieve this?

Thank you.

om_prakash · March 9th, 2010, 04:36 AM

Please check the following link:
http://www.w3schools.com/asp/asp_send_email.asp

Code:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing

Hannibal · March 9th, 2010, 04:43 AM

I tried that code. It is not working in windows server 2003 machine.

Hannibal · March 9th, 2010, 05:31 AM

Hi,

I tried the following code:

Code:

 
<%
   Option Explicit
  dim sName, sEmail, sMessage
 dim oCdoMail, oCdoConf, sConfURL
  if Request.Form("Action") <> "" then
    sName = Request.Form("Name")
    sEmail = Request.Form("Email")
    sMessage = Request.Form("Message")
  Set oCdoMail = Server.CreateObject("CDO.Message")
  Set oCdoConf = Server.CreateObject("CDO.Configuration")
  sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
  with oCdoConf
   .Fields.Item(sConfURL & "sendusing") = 2
   .Fields.Item(sConfURL & "smtpserver") = "server name"
   .Fields.Item(sConfURL & "smtpserverport") = 25
   .Fields.Update
  end with
  with oCdoMail
   .From = "[email protected]"
   .To = sEmail
   .Subject = "My message subject"
   .TextBody = sMessage
   .HTMLBody = sMessage
   .Configuration = oCdoConf
   .Send
  end with
  Set oCdoConf = Nothing
  Set oCdoMail = Nothing
    response.write "Thanks for your message!"
  else
%>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<p>Name:<br /><input type="text" name="Name" /></p>
<p>E-mail:<br /><input type="text" name="Email" /></p>
<p>Message:<br /><textarea name="Message"></textarea></p>
<p><input type="submit" name="Action" value="Send" /></p>
</form>
<%
  end if
%>

But i am not getting the mail in my inbox. Could you help me in that.

Thank you

om_prakash · March 9th, 2010, 07:27 AM

What is the error message you are getting?

Also check this URL for example & common error handling:
http://classicasp.aspfaq.com/email/h...-with-cdo.html

kushalkg · March 9th, 2010, 01:28 PM

You can try following C# code. It uses using System.Web.Mail namespace.

MailMessage mailmsg = new MailMessage();
mailmsg.Body = strMessage;
mailmsg.From = strFrom;
mailmsg.To = strTo;
mailmsg.Subject = strSubject;
SmtpMail.SmtpServer = strMailServer;
SmtpMail.Send(mailmsg);

Hope this helps,

Kushal

kushalkg · March 9th, 2010, 02:01 PM

System.Web.Mail is deprecated. You can use System.Net.Mail namespace instead.

The code is more or less same to what I posted before.

Kushal

mat41 · March 9th, 2010, 08:10 PM

You should be using CDOSYS. This code below will work providing you have the SMTP service up and running. All you need is to place your SMTP IP address against the StrSmartHost variable, place a .To and .From addresses. Do this and just run the page to send the mail

<%
Const cdoSendUsingPort = 2
Dim iMsg,iConf,Flds,strHTML,strSmartHost
StrSmartHost = "YourIPAddresshere"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/con...tion/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 10
.Update
End With
'apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "SomeValidAddress"
.From = "SomeValidAddress"
.Subject = "CDOSYS Test"
.HTMLBody = "Sent using CDOSYS..."
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
response.write "mail sent"
%>