Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #2  
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
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel Date Alert? Automatic date updates. WLVanS Word 12 01-29-2011 04:01 AM
Cannot stop the date being printed in the footer Ubtree Outlook 0 10-13-2007 11:49 AM
new appointment date always reverts back to today's date msills Outlook 0 08-24-2007 08:57 AM
Date format always interpreted as a formula Butch Jackman Excel 1 02-14-2006 11:27 AM
Excel Date Alert? Imported message date change to today's date promark Outlook 1 12-23-2005 07:21 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:39 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft