MailListBot

MailListBot Examples - Using SetDBQuery Property with an MS Access Database

This example demonstrates the sending of an email to email addresses contained in a MS Access database using the SetDBQuery property.

ASP Code

Create the MailListBot object:


Dim oMailListBot
Set oMailListBot = Server.CreateObject ("ExclamationSoft.MailListBot.3")
If oMailListBot Is Nothing Then
	Response.Write "Could not create MailListBot object"
	Set oMailListBot = Nothing
	Exit Function
End If

Required Properties:


oMailListBot.SetTo = "email@domain.com"
oMailListBot.SetFrom = "email@domain.com"
oMailListBot.SetServer = "smtp.domain.com"

Database Properties:


oMailListBot.SetDsn = "Driver={Microsoft Access Driver (*.mdb)};"&_
	"DBQ=C:\data\MailListBot.mdb;"
oMailListBot.SetDBQuery = "SELECT email FROM Customer"
oMailListBot.SetEmailColumn = "email"

Send the email message:


If oMailListBot.Send = false Then
	Response.Write "Failed to send message"
	Response.Write "Error message:["&oMailListBot.GetErrorMsg&"]"
	Set oMailListBot = Nothing
	Exit Function
End If

Set oMailListBot = Nothing

Cut-And-Paste Code

Have a suggestion for our documentation? Let us know: support@MailListBot.com. We're here to help.