Emailing an ASP/HTML page

After requesting this tutorial, I eventually found the information and would like to share it with other users.

I'm going to give the short version, but there are so many other fabulous tutorials on this site that I'm sure once you have the basics of how to do this you can build on the lesson and get creative.

Basically, to email an html page using asp, have the page created and give it a name (lets call it "my_newsletter.asp"). In this example our page is going to reside on the root with the page you are using to call it, however you can use this same code to call a page residing on a different server. You can even make the page dynamic, because I will show you how to pass a variable to the page you are calling.

Without wasting too much time, here's the code...

Dim objMail2 'declare the variable

Set objMail2 = Server.CreateObject("CDO.Message") 'create your server object - CDO.Message

With objMail2 'here begins the mailing info

.To = "mailto@yourcustomer.com" 'whoever is receiving the email
.CC = "yourself@yourself.com" 'or whoever else you would like to CC
.From = "info@yourcompany.com" 'self explanatory
.Subject = "Our Newsletter" 'or whatever you would like the subject to be
.CreateMHTMLBody "my_newsletter.asp" 'this is our baby, seems so simple, doesnt it?
.Send 'send it off...

End With 'end the mailing info
Set objMail2 = Nothing 'kill the object

To send a page from another server, just use the address...

...other code
.CreateMHTMLBody "http://yourcompany.com/my_newsletter.asp
...other code

To pass a variable with the Create, just declare your variable,

dim varCustomerNumber
varCustomerNumber = 24 'you determine this

and pass it with the code

...other code
.CreateMHTMLBody "my_newsletter.asp?CustomerNumber=" & varCustomerNumber
...other code

Pretty basic, but hopefully it is enough to get you started. I have used this code without fail on a testing server running XP Pro, a testing server running Windows 2000 Advanced Server, and it currently runs on a site hosted by a company running Windows 2000 Server.