Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Automate Email based on date and time
- Thread starter Bledoset
- Start date
ProgramError
Programmer
Assuming you have a date due field in your table (dteDue), you could use
Private Sub cmdSendEmail_Click()
dim emailtitle, mainbodytext as string
if DteDue = Date() then
emailtitle = "This is the title"
mainbodytext = "Bla bla bla"
DoCmd.SendObject , , , , , , EmailTitle, MainBodyText, 0
else
msgbox "not yet due"
endif
Ian Mayor (UK)
Program Error
Your lack of planning is not my emergency!
Private Sub cmdSendEmail_Click()
dim emailtitle, mainbodytext as string
if DteDue = Date() then
emailtitle = "This is the title"
mainbodytext = "Bla bla bla"
DoCmd.SendObject , , , , , , EmailTitle, MainBodyText, 0
else
msgbox "not yet due"
endif
Ian Mayor (UK)
Program Error
Your lack of planning is not my emergency!
- Status
Similar threads
- Locked
- Question
