May be you can make use of Outlook appointment , and write a little code to activate below code:
Code:
' Set reference to the Outlook library
Sub CreateOutlookAppointment()
Dim objOL As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)
With objAppt
.Subject = "Sectional Meeting Appointment"
.Location = "Cat's Home"
.ReminderSet = True
.Start = "3/2/2006 10:00:00" 'd/m/yyyy
.End = "3/2/2006 15:00"
'.AllDayEvent = True
.ReminderSet = True
.ReminderMinutesBeforeStart = 30 'Mins
.Save
.display
End With
Set objOL = Nothing
Set objAppt = Nothing
End Sub