|
Thank you. So it was the collection that was the issue, not the way Outlook
stores all day events, as I had thought. At least now I know what was
causing the event to only show up once.
I ran a test and even if the event started before the date range, it will
still show up in the collection as long as the event falls within the date
range. But the collection will only return the first instance of the event
within the date range.
I'm not going to write code to compensate for this--I'll just inform the
recipients of the e-mail to pay attention to the dates of all day events,
since they could be the multi-day events.
Thank you again.
news:%23UGaQjoqKHA.3464@TK2MSFTNGP06.phx.gbl...
stores all day events, as I had thought. At least now I know what was
causing the event to only show up once.
I ran a test and even if the event started before the date range, it will
still show up in the collection as long as the event falls within the date
range. But the collection will only return the first instance of the event
within the date range.
I'm not going to write code to compensate for this--I'll just inform the
recipients of the e-mail to pay attention to the dates of all day events,
since they could be the multi-day events.
Thank you again.
Regards,
M
MCTS, MCSA
"Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message M
MCTS, MCSA
news:%23UGaQjoqKHA.3464@TK2MSFTNGP06.phx.gbl...
> The workaround is the one you've already been given: If you want the event
> to appear on each day of your printout, your code must keep track of which
> days the all-day event should appear on.
> --
> Sue Mosher, Outlook MVP
> Author of Microsoft Outlook 2007 Programming:
> Jumpstart for Power Users and Administrators
> http://www.outlookcode.com/article.aspx?id=54
>
>
> "M" <m@n.com> wrote in message
> news:u7uwsVoqKHA.5896@TK2MSFTNGP04.phx.gbl...
>
> to appear on each day of your printout, your code must keep track of which
> days the all-day event should appear on.
> --
> Sue Mosher, Outlook MVP
> Author of Microsoft Outlook 2007 Programming:
> Jumpstart for Power Users and Administrators
> http://www.outlookcode.com/article.aspx?id=54
>
>
> "M" <m@n.com> wrote in message
> news:u7uwsVoqKHA.5896@TK2MSFTNGP04.phx.gbl...
>> Ok, that's what I was trying to find out. The appointment only appears
>> once, basically because it's tied to the start date only, correct? Is
>> there any way to work around this? I just need some ideas--I should be
>> able to write the code. Thank you.
>>
>> --
>> Regards,
>> M
>> MCTS, MCSA
>> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
>> news:evW6EIoqKHA.3464@TK2MSFTNGP06.phx.gbl...
>>
>>> once, basically because it's tied to the start date only, correct? Is
>> there any way to work around this? I just need some ideas--I should be
>> able to write the code. Thank you.
>>
>> --
>> Regards,
>> M
>> MCTS, MCSA
>> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
>> news:evW6EIoqKHA.3464@TK2MSFTNGP06.phx.gbl...
>>> The collection for the full 16-day date range? As JP suggested, you'll
>>> need to keep track of the dates involved in all-day events. Each such
>>> appointment will appear in the collection only once.
>>> --
>>> Sue Mosher, Outlook MVP
>>> Author of Microsoft Outlook 2007 Programming:
>>> Jumpstart for Power Users and Administrators
>>> http://www.outlookcode.com/article.aspx?id=54
>>>
>>>
>>> "M" <m@n.com> wrote in message
>>> news:OQpquAoqKHA.5940@TK2MSFTNGP02.phx.gbl...
>>>
>>>
>>>>> need to keep track of the dates involved in all-day events. Each such
>>> appointment will appear in the collection only once.
>>> --
>>> Sue Mosher, Outlook MVP
>>> Author of Microsoft Outlook 2007 Programming:
>>> Jumpstart for Power Users and Administrators
>>> http://www.outlookcode.com/article.aspx?id=54
>>>
>>>
>>> "M" <m@n.com> wrote in message
>>> news:OQpquAoqKHA.5940@TK2MSFTNGP02.phx.gbl...
>>>>I loop through the collection returned for the date range as shown
>>>>below.
>>>>
>>>> For Each objCalItemSingle In objCalItemColl
>>>> If objCalItemSingle.AllDayEvent Then
>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: [ALL DAY EVENT] " &
>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS (IF
>>>> AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>> Else
>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: " &
>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS (IF
>>>> AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>> End If
>>>> Set objCalItemSingle = objCalItemColl.GetNext
>>>> Next
>>>>
>>>>>>>below.
>>>>
>>>> For Each objCalItemSingle In objCalItemColl
>>>> If objCalItemSingle.AllDayEvent Then
>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: [ALL DAY EVENT] " &
>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS (IF
>>>> AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>> Else
>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: " &
>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS (IF
>>>> AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>> End If
>>>> Set objCalItemSingle = objCalItemColl.GetNext
>>>> Next
>>>>
>>>> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
>>>> news:%23X9FjznqKHA.4604@TK2MSFTNGP05.phx.gbl...
>>>>>>> news:%23X9FjznqKHA.4604@TK2MSFTNGP05.phx.gbl...
>>>>> How do you "go through each day within that range"?
>>>>> "M" <m@n.com> wrote in message
>>>>> news:uYdizJnqKHA.4604@TK2MSFTNGP05.phx.gbl...
>>>>> news:uYdizJnqKHA.4604@TK2MSFTNGP05.phx.gbl...
>>>>>> dtmTimeStart is today's date
>>>>>> dtmTimeEnd is today's + 16 (or any number)
>>>>>>
>>>>>> I set the filter range using the two variables above, and then go
>>>>>> through each day within that range to look for items in each day's
>>>>>> calendar. Eventually I send the info via e-mail.
>>>>>>
>>>>>> Everything so far is working correctly. I see single entries, such as
>>>>>> Monday 12:00 PM - 1:00 PM, and recurrences. But the script only reads
>>>>>> the first day of all day events that span multiple days. This is
>>>>>> seems to be the way Outlook works, so I don't think it's problem, per
>>>>>> se, but I need to try to work around that if possible.
>>>>>>
>>>>>> Thank you.
>>>>>>
>>>>>> --
>>>>>> Regards,
>>>>>> M
>>>>>> MCTS, MCSA
>>>>>> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
>>>>>> news:ui642$mqKHA.5116@TK2MSFTNGP04.phx.gbl...
>>>>>>>>>>> dtmTimeEnd is today's + 16 (or any number)
>>>>>>
>>>>>> I set the filter range using the two variables above, and then go
>>>>>> through each day within that range to look for items in each day's
>>>>>> calendar. Eventually I send the info via e-mail.
>>>>>>
>>>>>> Everything so far is working correctly. I see single entries, such as
>>>>>> Monday 12:00 PM - 1:00 PM, and recurrences. But the script only reads
>>>>>> the first day of all day events that span multiple days. This is
>>>>>> seems to be the way Outlook works, so I don't think it's problem, per
>>>>>> se, but I need to try to work around that if possible.
>>>>>>
>>>>>> Thank you.
>>>>>>
>>>>>> --
>>>>>> Regards,
>>>>>> M
>>>>>> MCTS, MCSA
>>>>>> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
>>>>>> news:ui642$mqKHA.5116@TK2MSFTNGP04.phx.gbl...
>>>>>>> What are typical values for dtmTimeEnd and dtmTimeStart. As the
>>>>>>> article you cited explains, the query needs to look for items that
>>>>>>> start before the end date and end after the start date. The article
>>>>>>> at
>>>>>>> http://blogs.msdn.com/waltwa/archive/2007/03/14/finding-appointments-within-a-specific-timeframe.aspx
>>>>>>> provides a nice graphical representation of what may seem like an
>>>>>>> illogical approach at first.
>>>>>>>
>>>>>>> To ask the question another way, how exactly do you invoke the code
>>>>>>> when "my script looks at Tuesday and Wednesday"?
>>>>>>> article you cited explains, the query needs to look for items that
>>>>>>> start before the end date and end after the start date. The article
>>>>>>> at
>>>>>>> http://blogs.msdn.com/waltwa/archive/2007/03/14/finding-appointments-within-a-specific-timeframe.aspx
>>>>>>> provides a nice graphical representation of what may seem like an
>>>>>>> illogical approach at first.
>>>>>>>
>>>>>>> To ask the question another way, how exactly do you invoke the code
>>>>>>> when "my script looks at Tuesday and Wednesday"?
>>>>>>>
>>>>>>> "M" <m@n.com> wrote in message
>>>>>>> news:ufxHOkmqKHA.728@TK2MSFTNGP04.phx.gbl...
>>>>>>> "M" <m@n.com> wrote in message
>>>>>>> news:ufxHOkmqKHA.728@TK2MSFTNGP04.phx.gbl...
>>>>>>>> Here's the code.
>>>>>>>>
>>>>>>>> Set objCDOSession = CreateObject("MAPI.Session")
>>>>>>>> objCDOSession.Logon , , , , , , strMAPIProfile
>>>>>>>> Set objCalFolder =
>>>>>>>> objCDOSession.GetDefaultFolder(CdoCALENDAR_FOLDER)
>>>>>>>> Set objCalItemColl = objCalFolder.Messages
>>>>>>>> Set objCalItemFilter = objCalItemColl.Filter
>>>>>>>> Set objCalItemFilterField1 =
>>>>>>>> objCalItemFilter.Fields.Add(CdoPR_START_DATE, dtmTimeEnd) 'This is
>>>>>>>> the END date! The values for start and end times must be reversed.
>>>>>>>> See http://support.microsoft.com/kb/192404.
>>>>>>>> Set objCalItemFilterField2 =
>>>>>>>> objCalItemFilter.Fields.Add(CdoPR_END_DATE, dtmTimeStart) 'This is
>>>>>>>> the START date! The values for start and end times must be
>>>>>>>> reversed. See http://support.microsoft.com/kb/192404.
>>>>>>>> For Each objCalItemSingle In objCalItemColl
>>>>>>>> If objCalItemSingle.AllDayEvent Then
>>>>>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: [ALL DAY EVENT] " &
>>>>>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>>>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>>>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS
>>>>>>>> (IF AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>>>>>> Else
>>>>>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: " &
>>>>>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>>>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>>>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS
>>>>>>>> (IF AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>>>>>> End If
>>>>>>>> Set objCalItemSingle = objCalItemColl.GetNext
>>>>>>>> Next
>>>>>>>>
>>>>>>>>
>>>>>>>> Set objCDOSession = CreateObject("MAPI.Session")
>>>>>>>> objCDOSession.Logon , , , , , , strMAPIProfile
>>>>>>>> Set objCalFolder =
>>>>>>>> objCDOSession.GetDefaultFolder(CdoCALENDAR_FOLDER)
>>>>>>>> Set objCalItemColl = objCalFolder.Messages
>>>>>>>> Set objCalItemFilter = objCalItemColl.Filter
>>>>>>>> Set objCalItemFilterField1 =
>>>>>>>> objCalItemFilter.Fields.Add(CdoPR_START_DATE, dtmTimeEnd) 'This is
>>>>>>>> the END date! The values for start and end times must be reversed.
>>>>>>>> See http://support.microsoft.com/kb/192404.
>>>>>>>> Set objCalItemFilterField2 =
>>>>>>>> objCalItemFilter.Fields.Add(CdoPR_END_DATE, dtmTimeStart) 'This is
>>>>>>>> the START date! The values for start and end times must be
>>>>>>>> reversed. See http://support.microsoft.com/kb/192404.
>>>>>>>> For Each objCalItemSingle In objCalItemColl
>>>>>>>> If objCalItemSingle.AllDayEvent Then
>>>>>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: [ALL DAY EVENT] " &
>>>>>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>>>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>>>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS
>>>>>>>> (IF AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>>>>>> Else
>>>>>>>> strEmailBodyText = strEmailBodyText & "SUBJECT: " &
>>>>>>>> objCalItemSingle.Subject & vbCRLF & " | START TIME: " &
>>>>>>>> objCalItemSingle.StartTime & vbCRLF & _
>>>>>>>> " | END TIME: " & objCalItemSingle.EndTime & vbCRLF & " | DETAILS
>>>>>>>> (IF AVAILABLE): " & objCalItemSingle.Text & vbCRLF & vbCRLF
>>>>>>>> End If
>>>>>>>> Set objCalItemSingle = objCalItemColl.GetNext
>>>>>>>> Next
>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> I created a VBS script using CDO to look at all the items in a
>>>>>>>>>> particular Exchange mailbox calendar between a specific date
>>>>>>>>>> range. I've almost got eveverything working, but one thing I
>>>>>>>>>> noticed is that all day events which span several days actually
>>>>>>>>>> consists of only a single entry in the calendar. Outlook is smart
>>>>>>>>>> enough to show the event spanning several days, but it only
>>>>>>>>>> stores the entry on the start date. In case my explanation wasn't
>>>>>>>>>> clear, I'll give an example:
>>>>>>>>>>
>>>>>>>>>> I have an all day event that spans Monday, Tuesday, and
>>>>>>>>>> Wednesday.
>>>>>>>>>> When viewed in Outlook, I can see the event spanning all three
>>>>>>>>>> days.
>>>>>>>>>> When my script runs and looks for items for that entire week, the
>>>>>>>>>> script only sees one entry for the 3-day event, and that's on
>>>>>>>>>> Monday. When the script looks at Tuesday and Wednesday, it
>>>>>>>>>> doesn't see the event at all.
>>>>>>>>>>
>>>>>>>>>> It seems that this issue is by design, and seems logical to me,
>>>>>>>>>> so I understand why this is happening. Is there any way to work
>>>>>>>>>> around this, so that when my script looks at Tuesday and
>>>>>>>>>> Wednesday, it would see the 3-day event?
>>>>>>>>>> I created a VBS script using CDO to look at all the items in a
>>>>>>>>>> particular Exchange mailbox calendar between a specific date
>>>>>>>>>> range. I've almost got eveverything working, but one thing I
>>>>>>>>>> noticed is that all day events which span several days actually
>>>>>>>>>> consists of only a single entry in the calendar. Outlook is smart
>>>>>>>>>> enough to show the event spanning several days, but it only
>>>>>>>>>> stores the entry on the start date. In case my explanation wasn't
>>>>>>>>>> clear, I'll give an example:
>>>>>>>>>>
>>>>>>>>>> I have an all day event that spans Monday, Tuesday, and
>>>>>>>>>> Wednesday.
>>>>>>>>>> When viewed in Outlook, I can see the event spanning all three
>>>>>>>>>> days.
>>>>>>>>>> When my script runs and looks for items for that entire week, the
>>>>>>>>>> script only sees one entry for the 3-day event, and that's on
>>>>>>>>>> Monday. When the script looks at Tuesday and Wednesday, it
>>>>>>>>>> doesn't see the event at all.
>>>>>>>>>>
>>>>>>>>>> It seems that this issue is by design, and seems logical to me,
>>>>>>>>>> so I understand why this is happening. Is there any way to work
>>>>>>>>>> around this, so that when my script looks at Tuesday and
>>>>>>>>>> Wednesday, it would see the 3-day event?
>>>
>>
>
Contact Us
All times are in (US) Eastern Daylight Time (GMT -4:00)
All times are in (US) Eastern Daylight Time (GMT -4:00)