Send Email in Text Format Using CDOSYS in ASP

<%
Option Explicit
'Declare variables
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
 
    Set cdoConfig = CreateObject("CDO.Configuration")
 
    With cdoConfig.Fields
        'Set CDO Port
        .Item(sch & "sendusing") = 2
        'Set mailserver name either IP address, mail.yoursite.com or localhost
        .Item(sch & "smtpserver") = "127.0.0.1"
        'Set SMTP port which is 25 by default
        .Item(sch & "smtpserverport") = 25
        'Set number of seconds before timeout
        .Item(sch & "smtpconnectiontimeout") = 60
        .update
    End With
 
    Set cdoMessage = CreateObject("CDO.Message")
 
    With cdoMessage
        Set .Configuration = cdoConfig
        .From = "youremail@yoursite.com"
        .To = "recipient@theirsite.com"
        .Subject = "Test Email"
        'Send the email in TEXT format
        .TEXTBody = "This is a test email."
        .Send
    End With
 
    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
%>