Sending mail from Classic ASP

You can use the below code (by making required configuration changes) for sending out emails using SMTP authentication through Classic ASP: 

<%    Dim intError    Dim strResult Function SendMail(SMTPServer, SMTPUserName, SMTPPassword, EMailFrom, EMailTo, EMailCc, EMailBcc, EMailSubject, EMailType, EMailContent)    Dim cdoConfig    Dim cdoMessage    Dim intErr       Set cdoConfig = CreateObject("CDO.Configuration")    With cdoConfig.Fields     .Item(cdoSendUsingMethod) = cdoSendUsingPort         .Item(cdoSMTPServer) = SMTPServer         .Item(cdoSMTPAuthenticate) = 1         .Item(cdoSendUsername) = SMTPUserName         .Item(cdoSendPassword) = SMTPPassword         .Update    End With      Set cdoMessage = CreateObject("CDO.Message")    With cdoMessage         Set .Configuration = cdoConfig         If Len(Trim(CStr(EMailFrom))) = 0 Then              .From = SMTPUserName         Else              .From = EMailFrom         End If         .To = EMailTo         If Len(Trim(CStr(EMailCc))) <> 0 Then .Cc = EMailCc         If Len(Trim(CStr(EMailBcc))) <> 0 Then .Bcc = EMailBcc         .Subject = EmailSubject         If EMailType = "text" Then              .TextBody = EMailContent         ElseIf EMailType = "html" Then              .HTMLBody = EMailContent         End If         .Send         intErr = Err.Number   End With   Set cdoMessage = Nothing   Set cdoConfig = Nothing   SendMail = intErr   Session("ErrDescription")=Err.Description End Function intError = SendMail("your-mailserver-ip", "smtp-username@domain.com", "smtp-password", "send-from-email", "send-to-email", "send-cc-email", "send-bcc-email", "email-subject", "text", "email-body") If intError = 0 Then    'No errors, mail sent    strResult = "The mail has been sent successfully." Else    strResult = "There was a problem sending the mail" End if Response.Write(strResult) %>