Set oApptItem = oCalendarFolder.Items.Find

E

Esperanza

Hello VBA expert,
I want to get from the Outlook Calendar an appointment for a certain date
The following code works fine if the appointement is NOT set to all day
event, if so, oApptItem will equal Nothing.
But all my appointments are set to AlldayEvent. in the calendar. Is there a
way to get it ?

tdystart = Format(DateDebut, "Short Date")
Set oApptItem = oCalendarFolder.Items.Find("[Start] >= """ & tdystart &
"""")

Thanks for your help in advance !!



'---------------------------------------------------------------------------

I even try the folloying

Set oApptItem = oCalendarFolder.Items.Find("[subject] = " & strActivite &
" AND [Location]=" & strLocation & " AND [Start] = """ & tdystart & """" & "
AND [AlldayEvent]= true")

Still the same thing, it cannot find my date in the calendar.
oApptItem equal nothing
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

finding appointment in Outlook 2
Update Calendar via VBA 2
finding appointment 6
Using Access to create an appointment and add attendees 3
Public Folder Items 7
Create appointment to custom (shared) outlook calendar 3
Create appointment to custom (shared) outlook calendar 2
Creating AllDayEvents with VB 0

Top