Setting up a reminder for an appointment.

[Memphis]

Hello,
I have been putting this together to control the cases I work on. I am Using
Excel 2003. I have a work sheet were I enter details of the cases I work on.
One of the cells has the date I sent the Individual or company a letter or
fax. I want to create an appointment 15 days out from this date , and to
remind 15 minutes on the day of the event (so i can call the individual as a
followup to my request).
I am hitting a brick wall with setting up the appointment 15 days out and
also on how to automatically set a reminder for that date once the
appointment is made. This is what I have so far:
Private Sub CommandButton1_Click()
Dim Outlook As Object
Dim Appointment As Object
Dim Category As String
Const Item = 1

Set Outlook = CreateObject("Outlook.Application")
Set Appointment = Outlook.CreateItem(1)
Category = "Invoice"

"Range ("A1")= name of the company or individual I sent the letter to.
Appointment.Subject = Range("A1")

' Range ("C1")= date I logged on the work sheet as the date I sent the
letter
Appointment.Start = "08:30AM" + Range("C1")

'Range ("I1")=Description of the letter I sent out.
Appointment.Body = Range("I1")
Appointment.Categories = Category

Appointment.ReminderPlaySound = True
Appointment.Display
end Sub

Thank you.

 

[Memphis]

OK, I figured how to add 15 days to the date in the cell. Now I need to add a
reminder to the appointment.

Private Sub CommandButton1_Click()
Dim Outlook As Object
Dim Appointment As Object
Dim Category As String
Dim Time As Variant (NEW)

Const Item = 1


Set Outlook = CreateObject("Outlook.Application")
Set Appointment = Outlook.CreateItem(1)
Category = "Business, Competition, Favorites"
Time = "08:30AM" (NEW)

Appointment.Subject = Range("A1")

Appointment.Start = DateAdd("d", 15, Range("C1")) & " " & Time (NEW)

Appointment.Body = Range("I1")
Appointment.Categories = Category

Appointment.ReminderPlaySound = True
Appointment.Display

'Outlook.quit
'Set Outlook = Nothing
End Sub

 

[Ken Slovak - [MVP - Outlook]]

Appointment.ReminderMinutesBeforeStart = 15 ' or whatever Long you want for
the time before Start
Appointment.ReminderSet = True

Both of those properties are listed in the Object Browser for
AppointmentItem.

 

[Memphis]

This Works great. Thank you for your help