Automatic Email Reminder

This site is best viewed in a modern browser with JavaScript enabled.

Brachole

I have this website in ASP/Database driven website. In the database, I have a table with Members and Expiration Dates of their registrations.

I want the website to be able to send an email reminder automatically when that expiration date is reached.

I think I need some kind of Server Side component for this...if so, which one should I be looking at and is this doable?

yamaharuss

On your new web server you can setup a daily batch script scheduled to run and query your database of subscribers. Based on date of expiration (or whatever) you can email members.

I do this with several things including birthday emails daily.

NatuScape

Care to offer more detail? I'm also interested in implementing this on a Windows 2003 server where I'm running a website off IIS.

Thanks!

yamaharuss

It's extremely simple. Simply create a vbs file:

dailyreminder.vbs

myconnectionstring
mysqlquery (select from members where whatever)
do until....
mycdo script
next

Go to your window scheduler and schedule that file to run daily, weekly, etc.

NatuScape

Hoping people are still reading this thread... I tried the below "simpleton" code and it seems to be doing nothing. When I pop this into an ASP page and load it with a browser, it works fine, but not as a .vbs file just opened from a satelllite computer. Do I need to have it be opened on the server itself?

On Error resume Next
Dim TBdy
Dim MyCDO
CR = Chr(13)
Set MyCDO = Server.CreateObject("CDO.Message")
If IsObject (MyCDO) Then
	MyCDO.From = "something@other.com"
	MyCDO.To = "something@other.com"
	MyCDO.Cc = ""
	MyCDO.Bcc = "something@other.com"
	MyCDO.MailFormat = 0
	MyCDO.BodyFormat = 0
	MyCDO.Importance = 2
	MyCDO.Subject = "Test of VBS file email"
	TBdy = "<html>"
	TBdy = TBdy & CR & "<head></head>"
	TBdy = TBdy & CR & "<body>"
	TBdy = TBdy & CR & "<p>"
	TBdy = TBdy & CR & "Test email sent on " & Now()
	TBdy = TBdy & CR & "</p>"
	TBdy = TBdy & CR & "</body>"
	TBdy = TBdy & CR & "</html>"

MyCDO.HTMLBody = TBdy
MyCDO.Send
Set MyCDO = nothing
Set TBdy = nothing
Else
	Response.Write("Email was not sent")
End If