Update Calendar via VBA

  • Thread starter Thread starter Esperanza
  • Start date Start date
E

Esperanza

Hello VBA Expert,
I want to find an appointment via the following code. My problem is the
date.
If the appointment is set to "All day event" I cannot find the appointment ,
if it has a specific time,
then, the following code get the appointment.

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


Any way to find an appoitment which is set to all day event ?

Thanks for your help !!

Esperanza
 
Set oApptItem = oCalendarFolder.Items.Find("[subject] = " &
strActivite _
& "AND [Location]=" & strLocation & " AND (([AllDayEvent] = " & _
True & ") OR ([Start] = """ & tdystart & """"))))


--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm
 
Thanks for your fast answer,
It works !!!
I'm so happy !!
Esperanza

Ken Slovak - said:
Set oApptItem = oCalendarFolder.Items.Find("[subject] = " &
strActivite _
& "AND [Location]=" & strLocation & " AND (([AllDayEvent] = " & _
True & ") OR ([Start] = """ & tdystart & """"))))


--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm


Esperanza said:
Hello VBA Expert,
I want to find an appointment via the following code. My problem is the
date.
If the appointment is set to "All day event" I cannot find the appointment ,
if it has a specific time,
then, the following code get the appointment.

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


Any way to find an appoitment which is set to all day event ?

Thanks for your help !!

Esperanza
 
Back
Top