Send mail in Classic Asp

Send mail

Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)
Set TestMail = CreateObject("cdo.message")
TestMail.From = mailFromAddress
TestMail.To = mailToAddress
TestMail.Subject = mailSubject
TestMail.HTMLBody = mailMessage
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServerIP
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailUsername
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
TestMail.Configuration.Fields.Update
TestMail.Send
Set TestMail = nothing
End Sub

Save mail in your local pickup directory.

Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)
Set TestMail = CreateObject("cdo.message")
TestMail.From = mailFromAddress
TestMail.To = mailToAddress
TestMail.Subject = mailSubject
TestMail.HTMLBody = mailMessage
TestMail.Configuration.Fields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 1
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServerIP
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\temp\maildrop"
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailUsername
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
TestMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
TestMail.Configuration.Fields.Update
TestMail.Send
Set TestMail = nothing
End Sub