Outlook Reminders

J

John

Is there anyway I can send multiple records to Outlook as reminders. For
example any records over a certain date?

I have seen & used several of the Outlook Reminder forms but they all seem
to only send the current record.
 
J

John

Can you give me an example of the code used to reference a recordset? It
would be greatly appreciated.
 
J

John

Sorry to keep bothering you with all of this. I relatively new to coding.

I have a table called KitList. In this table I have the following fields
that I need to be written to Outlook:

SerialNumber
Manufacturer
ProductType

The above need to be written to the body of the reminder,

ReminderDate

Needs to be the date obviously!

And the Reminder subject is always the text "Expired"

I have no problem writing the query, but I haven't got a clue how to append
these fields to outlook. If you can help I would be very grateful but I do
understand if I asking to much!

Thanks for you time Arvin.
 
A

Arvin Meyer [MVP]

Since you already have the data in Access, you may want to keep the data
where it is and look at the ReminderDate when you start up to see if there
is any pending reminder.

Here's an example:

Private Sub Form_Open()
'********************************************************************
' Purpose: Email Updates
'
' Author: Arvin Meyer
' Date: March 27, 2002
' Comment: Check if wanted, then run in a Transaction
'
'********************************************************************
On Error GoTo Err_Handler
Dim rstItems As DAO.Recordset
Dim db As DAO.Database
Dim lngCount As Long

Set db = CurrentDb
Set rstItems = db.OpenRecordset("qryItemsToEmail", dbOpenSnapshot)

lngCount = rstItems.RecordCount

If lngCount > 0 Then
If MsgBox("You have records with effective dates that need mailing." & _
vbCrLf & vbCrLf & "MAILTHEM?", vbYesNo, "Email Records?") = vbYes
Then

Call SendMail

End If
End If

Exit_Here:

rstItems.Close
Set rstItems = Nothing
Set db = Nothing
Exit Sub

Err_Handler:
MsgBox Err.Description
Resume Exit_Here
End Select
End Sub

The SendMail call just uses SendObject code from the helpfile example. If
you are using Outlook, you can also use this:

http://www.datastrat.com/Code/OutlookEmail.txt
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads
http://www.datastrat.com
http://www.mvps.org/access
 
J

John

Thank you very much for your time. It seems to work just fine. I really
appreciate it.

Regards,
 
Top