Appointment Reminder 1

[whill1]

I want to create a reminder for appointments. I would like to be able to set the amount of time differently for each appointment as driving distance and traffic are a factor as when i need the reminder set. Can I do this with a macro?
Do I set it up in a query? I would like a pop-up type reminder to pop-up on top of other applications if possible?
Any Ideas???
Thanks,
W.

 

[WB786]

Is this what you are looking for? To set a task in Outlook?

Private Sub Set_Reminder_Click()
If (MsgBox("Would you like to set a reminder?", vbYesNo + vbQuestion)) = vbYes Then
Dim olapp As New Outlook.Application
Dim olTask As Outlook.TaskItem

Set olTask = olapp.CreateItem(olTaskItem)

olTask.Subject = "Call Customer" & " " & (Me![FirstName] & " " & Me![LastName]) & " @ " & Me![Phone1]
olTask.DueDate = Me![YourFieldName]
olTask.ReminderTime = Me![YourFieldName] & " 9:00am"
olTask.ReminderSet = True
olTask.Display

End If
End Sub



WB

 

[whill1]

Thanks wabeg,
Actually I am not using the outlook calendar. what I am looking for is the basic code for how to set a pop-up reminder and beep for: Not sure abot correct syntax

If Now()+15 minutes = [Tablename]![Datefield] & [Tablename]![TimeFeild] Then MsgBox ,Beep.
I need the correct syntax for the above. --- Also need to know how to have this condition checked automatically every so many (seconds or minutes)without cutting performance. I know this can be done and fairly easy as I did it in a class about 8rys ago. I either did it in the query but most likely in a macro. I cannot begin to remember how i did but it worked great and I believe that it would even pop-up on top of other applications.
Thank you for your reply!!!!!
W.