Simple Classic ASP Send Email Subroutine

AltonConsulting · Feb 20, 2007

'============================================================================
' sendEmail Subroutine by Dan Robertson ([email protected])
'============================================================================
Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)
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/sendusername") = mailUsername
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailPassword
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
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

mailFrom = "[email protected]"
mailTo = "[email protected]"
mailSubject = "This is my subject"
mailMessage = "<html><body>This is my message</body><html>"
mailServer = "mail.domain.com"
mailUsername = "myUsername"
mailPassword = "myPassword"

Call sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer, mailUsername, mailPassword)

AltonConsulting · Mar 20, 2007

I have noticed a lot of views on this post, but disappointingly no one has commented (given feedback) or even more important, contributed any other code blocks, tips, or advice on "classic" ASP. I would like to see this forum grow and become a great resource for classic ASP developers and future ASP developers.

I know there is a big buzz around the whole ASP.NET realm, but unless creating large, application oriented internet projects, classic ASP is perfect for accomplishing whatever needed on most sites (other than heavy application based "Dot-Com" sites), and makes a web developer's life much easier.

I am also going to go as far as to say ASP is far superior to PHP (which in my opinion is a pain in the a$$).

Tell me what you think...

KCWebMonkey · Mar 20, 2007

i'll bet the high view count is because people are coming in from Google and viewing the post... probably copying it and leaving.

Stephen · Mar 20, 2007

yes, its highly 'googled' around here!

BluJag · Mar 21, 2007

I agree asp v php, but probably because I'm not very familiar with php. As to .net, I think it's the only way to go, forget classic asp. MS have made it very easy (with Web Developer Express as a free download) and JoDo host .net 2 along with Ajax.net, so what more could you want ? Why bother with classic asp and it's associated spaghetti code and lack of proper types etc?

KenPalmer · Jul 1, 2009

Thanks Dan. You saved my bacon! Your code worked like a champ virtually unedited.

Log in

Simple Classic ASP Send Email Subroutine

AltonConsulting Guppy

AltonConsulting Guppy

KCWebMonkey Perch

Stephen US Operations Staff Member

BluJag Perch

KenPalmer Guppy

Share This Page

JodoHost - 26,000 hosting end-users in 100 countries

JodoInstitute - Thousands of IT professionals Trained

Log in

Simple Classic ASP Send Email Subroutine

AltonConsulting Guppy

AltonConsulting Guppy

KCWebMonkey Perch

Stephen US Operations Staff Member

BluJag Perch

KenPalmer Guppy

Share This Page

JodoHost - 26,000 hosting end-users in 100 countries

JodoInstitute - Thousands of IT professionals Trained

Useful Searches