Thread: [Solved] Excel Date Alert?
View Single Post
 
Old 12-05-2008, 09:35 AM
Emily Emily is offline
Novice
 
Join Date: Dec 2008
Location: Hong Kong
Posts: 7
Emily is on a distinguished road
Default

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
Reply With Quote