Access to Outlook .AllDayEvent

[LB79]

Hi All,

Im having a slight problem with automating calendar entries and hoped someone can help?
Using the below code, I can create the calendar entry – Great! But! The .AllDayEvent isn't being picked up.
I have tried using the date without time (as suggested elsewhere), but still my entries are not all day.

Dte is a date variable and set to “14/10/2011”

Any ideas?

Thanks

Public Function CalandarEntry()
Set OutlookApt = Outlook.CreateItem(olAppointmentItem)
With OutlookApt
.Subject = ""
.Start = Dte
.End = Dte
.ReminderSet = False
.AllDayEvent = True
.Categories = "Work"
End With
OutlookApt.Save
Set OutlookApt = Nothing
Set OutlookApp = Nothing
End Function
[/CODE]

 

[LB79]

I managed to get around this issue by using the DateAdd function so the start and end times were not the same.

.Start = Dte
.End = DateAdd("h", 1, Dte)

Now it works for me