isssue with meetingrequest having attendess

Question

Hi,

i am working on addin for outlook 2007 creating on using visual studio 2005. 

i created a new meeting request and added  some attendes and then sent. it was sucesfully added in attendee calendar.

now, when i tries change the end time or start time  of meeting without opening inspector., A dialogue box opens and  asks for "Send and Save update"

i select that and press ok and itemchange event fires(i am able to track it throgh addin). but it shows there is no cahange in Start or End property of appointment item.

so suppose i am having item as

dim appointment as outlook.appointment

Public WithEvents FolderItems As Outlook.Items

 

Private Sub Calendar_ItemChange(ByVal Item As Object) Handles FolderItems.ItemChange

end sub

so in Calendar_ItemChange it shows Item.start or Item.End remains unchanged.

This happens for the appointment item having attendes in it,

itemchange event give correct result if this is a simple apointment item, i mean no attendess in it. so if i make a time  change for such appointment it gies me correct value.

 

item type                                                                     initial start time                       changed to                               Item.start shows(after itemchange event fires)

Appointment With Attendess/Meeting Request        2011-09-16 12:00:00              2011-09-16 13:00:00           2011-09-16 12:00:00

Appointment without attendes                                   2011-09-16 12:00:00              2011-09-16 13:00:00           2011-09-16 13:00:00

 

please let me know if you can replicate this and if its a known issue is there any fix availbale for this.

Thanks

 

Answer 1

Hi Nitrup,

Thanks for posting in the MSDN Forum.

I tried to reproduce your issue on my side (Visual Studio 2010, Office 2007). However I can not see the situation like your description.

This is my snippet which I used to reproduce your issue. Let's see whether it has different between us.

Public Class ThisAddIn

    Private MyBar As Office.CommandBar

    Private WithEvents SendMeetingBtn As Office.CommandBarButton

    Private WithEvents ChangeMeetingBtn As Office.CommandBarButton

    Private olAppointment As Outlook.AppointmentItem

    Private WithEvents Items As Outlook.Items

    Private flag As Boolean = False



    Private Sub ThisAddIn_Startup() Handles Me.Startup

        Dim olExplorer As Outlook.Explorer = Application.ActiveExplorer

        Try

            Try

                Dim target As Office.CommandBar = Nothing

                target = olExplorer.CommandBars("TestBar")

                If target IsNot Nothing Then

                    target.Delete()

                End If

            Catch

            End Try

            MyBar = olExplorer.CommandBars.Add(Office.MsoControlType.msoControlPopup, Office.MsoBarPosition.msoBarTop,

                                                Temporary:=False)

            If MyBar IsNot Nothing Then

                MyBar.Name = "TestBar"

                SendMeetingBtn = MyBar.Controls.Add(Office.MsoControlType.msoControlButton, Before:=1, Temporary:=0)

                SendMeetingBtn.Caption = "Send Meeting Item"

                AddHandler SendMeetingBtn.Click, AddressOf SendMeetingBtn_Click

                ChangeMeetingBtn = MyBar.Controls.Add(Office.MsoControlType.msoControlButton, Before:=2, Temporary:=0)

                ChangeMeetingBtn.Caption = "Change Begin"

                AddHandler ChangeMeetingBtn.Click, AddressOf ChangeMeetingBtn_Click

                MyBar.Visible = True

            End If

            Items = Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar).Items

            AddHandler Items.ItemChange, AddressOf Items_ItemChange

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub



    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown



    End Sub



    Private Sub SendMeetingBtn_Click(ByVal CommandButton As Office.CommandBarButton, ByRef Cancel As Boolean)

        olAppointment = Application.CreateItem(Outlook.OlItemType.olAppointmentItem)

        olAppointment.Start = New Date(2011, 9, 19, 17, 30, 0)

        olAppointment.End = New Date(2011, 9, 19, 18, 0, 0)

        olAppointment.Subject = "test"

        olAppointment.MeetingStatus = Outlook.OlMeetingStatus.olMeeting

        olAppointment.Recipients.Add("********@microsoft.com")

        olAppointment.Recipients.ResolveAll()

        olAppointment.Send()

    End Sub



    Private Sub ChangeMeetingBtn_Click(ByVal CommandButton As Office.CommandBarButton, ByRef Cancel As Boolean)

        flag = True

        olAppointment.Start = New Date(2011, 9, 19, 17, 45, 0)

        olAppointment.End = New Date(2011, 9, 19, 18, 0, 0)

        olAppointment.Save()

    End Sub



    Private Sub Items_ItemChange()

        If flag Then

            olAppointment.Send()

            flag = False

        End If

    End Sub



End Class

Have a good day,

Tom

---

Tom Xu [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 2

Hi Tom,

Please do one test fo me.

Create an appointment in a calendar having attendees in it or create a meeting request(both are same)

After its created try to move the meeting to different time slot without opening Inspector.

It should open  a dialogue box (see below) and "SAve changes and send update" option is selected and you click ok, let me know what happen afterwards. is it opening a new inspector? and if it is not opening then whats the result for start and end property of appointment item when itemchange event fires. because if it is oening an inspector then i will not be fcaing any issue, but if it is not opening and not updating start and end property of appointment item, then its an issue for me.

 

 

 

Thanks

 

Answer 3

Hi Nitrup,

 

I found I’m not able to avoid the open appointment item’s inspector. If I move it manually after I click Ok button the inspector will be open. I test it under Office 2010. I think it doesn’t affect anything for your issue. Do you agree?

 

Have a good day,

 

Tom

---

Tom Xu [MSFT]
MSDN Community Support | Feedback to us
Get or Request Code Sample from Microsoft
Please remember to mark the replies as answers if they help and unmark them if they provide no help.

Answer 4

Yeah, it will not be an issue in that case. actully, inspector was not opening earlier on my machine due to which something unusual was opening when item is drag to some different time slot. but its look like inspector is opening now.

Thanks fro your Help!