How to read single instance of recursive meetings in Outlook

Status
Not open for further replies.
S

sindhura

Hi,

I am creating an Add-in for Outlook in Vb.net . I need to read the

meetings between a given duration from a shared calendar. I am able

to

read the non recursive meetings but when i try to read the recursive

meetings it always gives an item count of "2147483647".

I want the total count of meetings ( recursive + non recursive)

between the given time which should count only that instance of the

recursive meeting .

Here is the code sample which i am using:

Dim oApp As New Microsoft.Office.Interop.Outlook.Application

Dim oappt As Microsoft.Office.Interop.Outlook.AppointmentItem

Dim oNs As Microsoft.Office.Interop.Outlook.NameSpace

Dim oCalendar As Microsoft.Office.Interop.Outlook.MAPIFolder

Dim instance As Microsoft.Office.Interop.Outlook.Items

Dim oItems As Microsoft.Office.Interop.Outlook.Items

Dim recipient As Microsoft.Office.Interop.Outlook.Recipient

Dim oTask As Microsoft.Office.Interop.Outlook.TaskItem

Dim sSearch As String

Dim name1 As String

Dim date1 As String

oNs = oApp.GetNamespace("mapi")

oNs.Logon()

name1 = TextBox1.Text

date1 = DateTimePicker1.Text

recipient = oNs.CreateRecipient(name1)

oCalendar = oNs.GetSharedDefaultFolder(recipient,

Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)

oItems = oCalendar.Items

oItems.IncludeRecurrences = True

oItems.Sort("[Start]")

sSearch = "[START] >= '" & Format(date1) & " " & j & " ' and [START]

<= '" & Format(date1) & " " & k & " ' or [START] <'" &

Format(date1) & " " & j & " ' and [END] > '" & Format(date1) & " " &

j & " ' "

oItems = oItems.Restrict(sSearch)

If oItems.Count > 0 Then

TextBox3.Text = "Busy"

Else

TextBox3.Text = "Free"

End If

Can anyone please suggest me how to proceed.

Thank you
 
K

Ken Slovak - [MVP - Outlook]

If a recurring series has no end date and you set IncludeRecurrences you

will always get that count of recurrences.

You will need to get the starting instance using the GetOccurrence() method

and then you need to add the recurrence pattern to that start date and

derive the next date and use GetOccurrence() again, and so on. If a specific

occurrence isn't found for a specific date you then need to examine the

Exceptions collection to find if an occurrence on that date was moved or

deleted.

"sindhura" <sadduri@gmail.com> wrote in message

news:d9a74b37-bdf7-43a3-a53c-e7b4bf3c880e@j4g2000yqe.googlegroups.com...
> Hi,

> I am creating an Add-in for Outlook in Vb.net . I need to read the
> meetings between a given duration from a shared calendar. I am able
> to
> read the non recursive meetings but when i try to read the recursive
> meetings it always gives an item count of "2147483647".
> I want the total count of meetings ( recursive + non recursive)
> between the given time which should count only that instance of the
> recursive meeting .
> Here is the code sample which i am using:
> Dim oApp As New Microsoft.Office.Interop.Outlook.Application
> Dim oappt As Microsoft.Office.Interop.Outlook.AppointmentItem
> Dim oNs As Microsoft.Office.Interop.Outlook.NameSpace
> Dim oCalendar As Microsoft.Office.Interop.Outlook.MAPIFolder
> Dim instance As Microsoft.Office.Interop.Outlook.Items
> Dim oItems As Microsoft.Office.Interop.Outlook.Items
> Dim recipient As Microsoft.Office.Interop.Outlook.Recipient
> Dim oTask As Microsoft.Office.Interop.Outlook.TaskItem
> Dim sSearch As String
> Dim name1 As String
> Dim date1 As String
> oNs = oApp.GetNamespace("mapi")
> oNs.Logon()
> name1 = TextBox1.Text
> date1 = DateTimePicker1.Text
> recipient = oNs.CreateRecipient(name1)
> oCalendar = oNs.GetSharedDefaultFolder(recipient,
> Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar)
> oItems = oCalendar.Items
> oItems.IncludeRecurrences = True
> oItems.Sort("[Start]")
> sSearch = "[START] >= '" & Format(date1) & " " & j & " ' and [START]
> <= '" & Format(date1) & " " & k & " ' or [START] <'" &
> Format(date1) & " " & j & " ' and [END] > '" & Format(date1) & " " &
> j & " ' "
> oItems = oItems.Restrict(sSearch)
> If oItems.Count > 0 Then
> TextBox3.Text = "Busy"
> Else
> TextBox3.Text = "Free"
> End If

> Can anyone please suggest me how to proceed.

> Thank you
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S How to read single instance of recursive meetings in Outlook Outlook VBA and Custom Forms 1
J Read Outlook Form fields Outlook VBA and Custom Forms 3
B Inconsistent handling of message read/unread status by Outlook Using Outlook 3
T E-mails marked as read turn back to unread after a couple of seconds Using Outlook 1
M Cannot read the calendar Using Outlook 9
Z Outlook 365 delete reminder you can’t make change to contents of this-read only folder Using Outlook 4
A Inbox didn't got read Outlook VBA and Custom Forms 0
e_a_g_l_e_p_i Is it possible it set the fonts used to read incoming mail Using Outlook 25
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
DoctorJellybean Outlook 365 doesn't always mark emails as read Using Outlook 3
N Separate Read Layout Editing Outlook VBA and Custom Forms 0
A Read and Write to Text File Outlook VBA and Custom Forms 1
L Email Read and Delete Outlook VBA and Custom Forms 4
A Separate Read Layout Outlook VBA and Custom Forms 4
M Making Subject field writable (disable Read Only) Outlook VBA and Custom Forms 2
M How can I determine which user read an email Exchange Server Administration 4
Diane Poremsky Mark Sent Items as Read After Copying with a Rule Using Outlook 0
Diane Poremsky Edit and Save Outlook's Read-Only Attachments Using Outlook 0
Rupert Dragwater Some mailboxes show deleted items as not read Using Outlook 5
K cant read email or open attachement Using Outlook 0
R Reply marks read message as unread Using Outlook 1
T Outlook 2013 either fails to mark messages as read or marks them as read, then un-marks them. Using Outlook 1
Mary B VBscript: Need to copy every email to a folder & mark that copy as read Outlook VBA and Custom Forms 5
Mary B Outlook 2013: Rule for copying new email to folder & marking that copy as read Using Outlook 1
M Sorting messages by read/unread status Using Outlook 8
C Mark all incoming emails as read Outlook VBA and Custom Forms 3
FirefIy Marking message read only if replied to the message or Ctrl+Q. Possible? Using Outlook 1
A give User Read Only access to secondary mailbox in Exchange 2010 via AD Exchange Server Administration 1
M How do I mark emails already received as read when I get a second, different email based on subject? Outlook VBA and Custom Forms 3
JR Ryan Outlook marks all as "Read" issue Exchange Server Administration 2
R Cannot read Chinese message after import Using Outlook 2
T Saving Outlook 2010 email with attachments but read the email without Outlook Using Outlook 2
M Oh please read---> Extracting email web leads on to excel spread sheet Using Outlook 3
S Outlook Custom form - selecting text in read page Using Outlook 0
C In need of VBA code to read / parse HTML - Outlook emails Using Outlook 0
A Can't read my mails if they are on a folder... Using Outlook 0
M Unable to read HTML Using Outlook 2
J Cannot read incoming emails Using Outlook 2
P Custom field is read only Using Outlook 1
C (Read, not read) receipt "subject" problem Using Outlook 8
S iCloud Outlook Calendar is read only Using Outlook 1
Z Mark moved copies as "Read" Using Outlook 19
M Can't read invitations to appointments Using Outlook 1
M TO field on Read Page not resolving Using Outlook 3
G How to make outlook show as unread messages I read in my mobile ph or tablet Using Outlook 1
J From column changes when message is read Using Outlook 1
Z "Mark All as Read" in Outlook 2007 extremely slow Using Outlook 1
S Duplicate Read Receipt Using Outlook 4
K Read, unread, i'm losing clients! Using Outlook 1

Similar threads

Top