Greetings,

I'm using excel 2000 and outlook 2000, my email address is in F2.
Can I get outlook to send me an email reminder?

Dim olApp As Outlook.Application
Dim olApt As AppointmentItem

Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)

With olApt
.Start = Range("A2")
.End = Range("B2")
.Subject = Range("C2")
.Location = Range("D2")
.Body = Range("E2")
.ReminderMinutesBeforeStart = 120
.ReminderSet = True
.Save
End With

Set olApt = Nothing
Set olApp = Nothing


--
Regards,
DL