Creating Outlook AllDayEvent - Trouble

[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!

 

[Ken Slovak - [MVP - Outlook]]

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.