VBScript Class to Send Mail With CDOSYS

by johna | February 16, 2008 | Classic ASP Web Development

This is my first attempt at a VBScript class.

It allows full control of the CDO Message object.

You can create a new instance of the class with the following:

Dim clsSendMail
Set clsSendMail = New SendMail

Then add the various properties of the email:

clsSendMail.SendTo = "test@test.com"
clsSendMail.From = "test@test.com"
clsSendMail.Subject = "Test Message"

Next you choose what type of mail you are going to send: plain text, HTML or from a URL or local file.

Type	Property/Method	Syntax
Plain Text	TextBody	clsSendMail.TextBody = "message here"
HTML	HTMLBody	clsSendMail.HTMLBody = "<b>html</b> message here"
URL	CreateMHTMLBody	Call clsSendMail.CreateMHTMLBody "http://www.url.com/pagename.htm"
Local File	CreateMHTMLBody	Call clsSendMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"

To add an attachment use the following:

Call clsSendMail.AddAttachment "c:\mydocuments\test.txt"

To embed files in your message use:

clsSendMail.AddRelatedBodyPart "/older/imagefile.gif", "image1.gif"

This can then be included in your HTMLBody by referencing the second parameter as the CID, for example:

<img src="cid:image1.gif">

You can also set a SMTP server and port if neccessary:

Call clsSendMail.SMTPServer "mail.test.com", 25

SendMail Class

Class SendMail

Private objCDOMessage
	Private objCDOBodyPart

Private strTo
	Private strFrom
	Private strCC
	Private strBCC
	Private strSubject
	Private strTextBody
	Private strHTMLBody

Private Sub Class_Initialize()
		Set objCDOMessage = CreateObject("CDO.Message")
	End Sub

Private Sub Class_Terminate()
		Set objCDOMessage = Nothing
	End Sub

Public Property Let SendTo(strParam1)
		strTo = strParam1
	End Property

Public Property Let From(strParam1)
		strFrom = strParam1
	End Property

Public Property Let CC(strParam1)
		strCC = strParam1
	End Property

Public Property Let BCC(strParam1)
		strBCC = strParam1
	End Property

Public Property Let Subject(strParam1)
		strSubject = strParam1
	End Property

Public Property Let TextBody(strParam1)
		strTextBody = strParam1
	End Property

Public Property Let HTMLBody(strParam1)
		strHTMLBody = strParam1
	End Property

Public Sub CreateMHTMLBody(strParam1)
		objCDOMessage.CreateMHTMLBody strParam1
	End Sub

Public Sub AddAttachment(strParam1)
		objCDOMessage.AddAttachment strParam1
	End Sub

Public Sub SMTPServer(strParam1, intParam2)
		objCDOMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		objCDOMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strParam1
		objCDOMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intParam2
		objCDOMessage.Configuration.Fields.Update
	End Sub

Public Sub AddRelatedBodyPart(strParam1, strParam2)
		Set objCDOBodyPart = objCDOMessage.AddRelatedBodyPart(Server.MapPath(strParam1), strParam2, 1)
		objCDOBodyPart.Fields.Item("urn:schemas:mailheader:Content-ID") = "<" & strParam2 & ">"
		objCDOBodyPart.Fields.Update
	End Sub

Public Sub Send()
		If strTo <> "" Then objCDOMessage.To = strTo
		If strFrom <> "" Then objCDOMessage.From = strFrom
		If strCC <> "" Then objCDOMessage.CC = strCC
		If strBCC <> "" Then objCDOMessage.BCC = strBCC
		If strSubject <> "" Then objCDOMessage.Subject = strSubject
		If strTextBody <> "" Then objCDOMessage.TextBody = strTextBody
		If strHTMLBody <> "" Then objCDOMessage.HTMLBody = strHTMLBody
		objCDOMessage.Send
	End Sub
End Class

Web Development

How to set up a debugging using the Turnkey Linux LAMP stack and VS Code

by johna | December 19, 2023

The second part in my guide to setting up a website and database using the Turnkey Linux LAMP stack.

Website Hosting Web Development

How to set up a website and database using the Turnkey Linux LAMP stack

by johna | November 18, 2023

If you need to host your own website for the purposes of web development, Turnkey Linux LAMP Stack is an easy to install all-in-one solution that you can set up on a spare computer or a VM (Virtual Machine).