adding appointments on top of the calendar RRS feed

  • Question

  • Dim olAppt As Outlook.AppointmentItem
    With olAppt
             .Body = "TEST"
             .Start = exlSheet.Cells(iRow, 1)
             .Subject = exlSheet.Cells(iRow, 2)
             .ReminderSet = False
    End With

    i need the appointments to be added on the location where test and test2 are on the agenda. .Start contains just a date with no time. I'm adding more then one appointment and i cant have them all on 00:00 (When i give no time they are added @ 00:00).

    How can i put the appointments on top of the calendar? working with outlook
    Friday, August 1, 2008 7:02 PM


  • Hi Amien,


    There are two kinds of appointment:

    1. The ordinary ones have date and time. They will be put in time line according to their start time.

    2. The ones only have date without time. We call them all day event. They will apear at top of your calendar.

    So, if you want to adding appointments on top of calendar, you can set AppointmentItem.AllDayEvent to true.

    Codes are as follow:

    Code Snippet
    Sub Test()
        Dim app As Outlook.AppointmentItem
        Set app = Me.ActiveInspector().CurrentItem
        app.AllDayEvent = True
    End Sub





    Monday, August 4, 2008 9:14 AM