• Help & contact

    For Windows Web Hosting packages

    In this article, we'll provide an example that you can adapt with your own details to send an email using ASP.

    CDOSYS, which replaced CDONTS in 2000, provides you with Collaboration Data Objects in order to send authenticated emails (requiring a username and password) in ASP.

    Guided Steps

    • Copy the text from the box below and paste it into a text editor, such as NotePad.
    • Edit the details shown below in this color.
    • Save the file with the extension .asp (Ex: sendmail.asp).
    • Upload the file to your webspace.
    • Access the file through your browser to verify that it works (Ex: https://www.example.com/sendmail.asp).
       

    <%
    CONST SMTPSendUsing = 2 ' Send using Port (SMTP over the network)
    CONST SMTPServer = "smtp.ionos.com"
    CONST SMTPServerPort = 465
    CONST SMTPConnectionTimeout = 10 'seconds
    CONST SMTPUser = "sender@example.com

    "
    CONST SMTPPassword = "EnterEmailPasswordHere"

    dim sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg
    sSubject = "Test"
    sEmail = "recipient@example.com"
    sMailBody = "This is a test message."
    sFrom = "sender@example.com"
    sReadReceipt = true
    sMsg = ""

    On Error Resume Next

    dim oMail, oConfig, oConfigFields
    set oMail = Server.CreateObject("CDO.Message")
    set oConfig = Server.CreateObject("CDO.Configuration")
    set oConfigFields = oConfig.Fields

    with oConfigFields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SMTPSendUsing
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPServerPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
    .Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Update
    end with
    oMail.Configuration = oConfig

    oMail.Subject = sSubject
    oMail.From = sFrom
    oMail.To = sEmail
    oMail.HTMLBody = sMailBody

    oMail.Send
    set oMail=nothing

    sMsg = "Message Sent"

    if Err.Number > 0 then sMsg = "ERROR: " & Err.Description

    Response.Write sMsg

    %>

    If the test message was received by the email account with which you replaced recipient@example.com in the example shown above, you can now adapt the script to better fit your usage, such as by replacing the sSubject and sMailBody values.