JoeNo1’s Blog – IT, guitar, life … from my point of view

dim eFrom, eTo, eBcc, eSubject, eHTMLBody

eFrom       = "somebody@somewhere.com"              '' email is sent from <somebody@somewhere.com>
eTo     = "a@abc.com, b@abc.com"                '' email receivers
eBcc        = "xyz@abc.com"
eSubject    = "ASP, Send Emails from Any Webpages Using CDOSYS"
eHTMLBody   = "<b>You've got mail!</b>"

sendCDOSYSmail eFrom, eTo, eBcc, eSubject, eHTMLBody

sub sendCDOSYSmail(eFrom, eTo, eBcc, eSubject, eHTMLBody)
    dim objEmail    '' CDOSYS object
    Set objEmail        = Server.CreateObject("CDO.Message")
    Set objCDOSYSCon    = Server.CreateObject ("CDO.Configuration")
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    objCDOSYSCon.Fields.Update
    Set objEmail.Configuration = objCDOSYSCon
   
    objEmail.From= eFrom
    objEmail.To= eTo
    if eBcc <> "" then
        objEmail.Bcc= eBcc
    end if
    objEmail.Subject = eSubject
    'objEmail.Textbody = eTextBody      '' text ONLY emails
    objEmail.HTMLBody = eHTMLBody       '' emails with HTML code
   
    objEmail.Send
    Set objEmail = Nothing
    Set objCDOSYSCon = Nothing
end sub