Matthew Steven Kelly » ASP http://www.matthewstevenkelly.com/blog Just another WordPress weblog Sun, 05 Feb 2012 04:43:00 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 ASP Classic Email http://www.matthewstevenkelly.com/blog/random/asp-classic-email.html http://www.matthewstevenkelly.com/blog/random/asp-classic-email.html#comments Wed, 05 Apr 2006 02:57:15 +0000 Matthew Steven Kelly https://www.matthewstevenkelly.com/blog/?p=237 Continue reading →]]> Using ASP Classic and need to send an email? This is done using CDO, a built component of ASP, and an SMTP server that allows message relay. This website lists the SMTP variables needed based on your email provider, if you are using a shared hosting account or other free-based email account: http://www.emailaddressmanager.com/tips/mail-settings.html

If you are using a corporate SMTP server, obviously your settings will the custom to your organization.

Below is an example web form that will send an email. Simply change the email server settings variables to your specific SMTP server:

<%
On Error Resume Next
'These are the email server settings
Dim sSendTo, sSMTPServer, sSMTPPort
sSendTo = "someone@somedomain.com"
sSMTPServer = "smtp.server.com"
sSMTPPort = 25
' Get form variables
Dim sEmailAddress, sSubject, sBody, bError
sEmailAddress = Request.Form("email")
sSubject = Request.Form("subject")
sBody = Request.Form("body")
bError = true
If sEmailAddress <> "" Then
  Set myMail=CreateObject("CDO.Message")
  myMail.Subject=sSubject
  myMail.From=sEmailAddress
  myMail.To=sSendTo
  myMail.TextBody=sBody
  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")=sSMTPServer
  'Server port
  myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=sSMTPPort
  myMail.Configuration.Fields.Update
  myMail.Send
  set myMail=nothing
  If err.number <> 0 Then
    sMessage = "<h1 style='color:red;'>An error has occurred sending your email. Please try again.</h1>"
    bError = true
  Else
    sMessage = "<h1>Successfully sent email. Thank you for your input.</h1>"
    bError = false
  End If
End If
%>
<html>
<body>
  <%
  If sMessage <> "" Then
    Response.Write sMessage
  End If
  ' If there was an error (including no form submitted) display the form
  If bError = true Then
    %>
    <table cellpadding=0 cellspacing=0>
    <tr>
    <td>Email Address</td>
    <td><input type="text" name="email" value="<%
    Response.Write sEmailAddress
    %>"></td>
    </tr>
    <tr>
    <td>Subject</td>
    <td><input type="text" name="subject" value="<%
    Response.Write sSubject
    %>"></td>
    </tr>
    <tr>
    <td>Body</td>
    <td><input type="text" name= "body" value="<%
    Response.Write sBody
    %>"></td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    <td><input type="submit" value="Send Email"></td>
    </tr>
    </table>
    <%
  End If
  %>
</body>
</html>

More advanced functionality can be added by adding the following syntax to the above example before the myMail.Send line of code…

Sending HTML formatted emails:
myMail.HTMLBody = sSubject
Sending emails with carbon copies or blind carbon copies:
myMail.Cc = "example@email.com"
myMail.Bcc = "example@email.com"
Sending HTML formatted emails from a file on your computer:
myMail.CreateMHTMLBody "file://c:/html-email.htm"
Using SMTP server authentication (replace username and password with your values and add before the myMail.Configuration.Fields.Update line):
'SMTP server username
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="username"
'SMTP server password
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password"
Adding attachments:
myMail.AddAttachment "c:\attachment.pdf"
Additional Note:the CDONTs functionality in ASP has been discontinued. If you are using CDONTs to send emails you should upgrade to the CDO example shown above.
]]> http://www.matthewstevenkelly.com/blog/random/asp-classic-email.html/feed 0