Creating Outlook AllDayEvent - Trouble

  • Thread starter Thread starter Wendi Taranto
  • Start date Start date
W

Wendi Taranto

When I try to create an Appointment in Outlook as an 'AllDayEvent' I
actually get an appointment from 12AM to 12AM and 'AllDayEvent' is not
checked. Here is my code:

strSubject = "Test"
strDate = "9/1/2004"
objCalendarItem.Subject = strSubject
objCalendarItem.Start = strDate
objCalendarItem.End = strDate
objCalendarItem.AllDayEvent = True
objCalendarItem.Save

How can I create an all day event with the start and end times only having a
value of the date of the appointment (minus the formatted time)?????

HELP!

Thanks in advance!
 
Try this:

strDate = "9/1/2004"
objCalendarItem.Subject = strSubject
objCalendarItem.Start = strDate
strDate = "9/2/2004"
objCalendarItem.End = strDate

You need to change the code so start <> end.
 
Back
Top