ASP email

cjdmax, 13/10/09
Augh, ASP Classic :s
'============================================================================
' sendEmail Subroutine by Dan Robertson (danrobertson@ninemanagement.com)
'============================================================================
Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
Set MyMail = CreateObject("cdo.message")
MyMail.From = mailFrom
MyMail.To = mailTo
MyMail.Subject = mailSubject
MyMail.HTMLBody = mailMessage
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
End Sub

Dim mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword

'contactform
if request.querystring("action") = "send" then
        tekst = tekst & "info: " & request.form("info") & chr(13) & chr(10)
        tekst = tekst & "info2: " & request.form("info2") & chr(13) & chr(10)
        'et cetera

        mailFrom = "foo@bar.org"
        mailTo = "foo@bar.org"
        mailSubject = "foo!"
        mailMessage = "<html><body>" & tekst & "</body><html>"
        mailServer = "smtp.example.org"
        'mailUsername = "myUsername"
        'mailPassword = "myPassword"

        Call sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
       
        response.redirect "thanks.asp"
end if