How to do FindFolder and MoveItem Operations of Exchange Web Services using VB.net

Private Sub cmdMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMove.Click

        Try

            If lstMails.SelectedItems.Count = 1 Then

                Dim itemID As New ItemIdType

                itemID.Id = lstMails.SelectedItems(0).SubItems(3).Text

                'Find the folderId to which we want to move item

                Dim parentFolder As New DistinguishedFolderIdType

                parentFolder.Id = DistinguishedFolderIdNameType.root

                Dim tfTargetFolder As New FolderIdType

                'Change the name of the folder we are searching for FolderID

                tfTargetFolder = FindFolder(ServiceBinding, parentFolder, "Test")

                Dim newItemID As New ItemIdType

                'Move am Item based on ItemId and FolderID

                newItemID = MoveItemtoTest(ServiceBinding, itemID.Id, tfTargetFolder)

                Dim strId As String

                strId = "New ItemID " + newItemID.Id.ToString

                MessageBox.Show(strId, "Item Moved", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show("Please select a item in list to move", "Item to Move", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

Public Shared Function FindFolder(ByVal serviceBinding As ExchangeServiceBinding, ByVal fiFolderID As DistinguishedFolderIdType, ByVal fnFldName As String) As FolderIdType

        Dim rvFolderID As New FolderIdType

        ' Create the request and specify the travesal type

        Dim findFolderRequest As FindFolderType = New FindFolderType()

        findFolderRequest.Traversal = FolderQueryTraversalType.Deep

        ' Define the properties returned in the response

        Dim responseShape As FolderResponseShapeType = New FolderResponseShapeType()

        responseShape.BaseShape = DefaultShapeNamesType.Default

        findFolderRequest.FolderShape = responseShape

        ' Identify which folders to search

        Dim folderIDArray() As DistinguishedFolderIdType = New DistinguishedFolderIdType(1) {}

        folderIDArray(0) = New DistinguishedFolderIdType()

        folderIDArray(0).Id = fiFolderID.Id

        'Add Restriction for DisplayName

        Dim ffRestriction As New RestrictionType

        Dim ieToType As New IsEqualToType

        Dim diDisplayName As New PathToUnindexedFieldType

        diDisplayName.FieldURI = UnindexedFieldURIType.folderDisplayName

        Dim ciConstantType As New FieldURIOrConstantType

        Dim cvConstantValueType As New ConstantValueType

        cvConstantValueType.Value = fnFldName

        ciConstantType.Item = cvConstantValueType

        ieToType.Item = diDisplayName

        ieToType.FieldURIOrConstant = ciConstantType

        ffRestriction.Item = ieToType

        findFolderRequest.Restriction = ffRestriction

        ' Add the folders to search to the request

        findFolderRequest.ParentFolderIds = folderIDArray

        Try

            ' Send the request and get the response

            Dim findFolderResponse As FindFolderResponseType = serviceBinding.FindFolder(findFolderRequest)

            ' Get the response messages

            If findFolderResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then

                MessageBox.Show("Error Occured")

                MessageBox.Show(findFolderResponse.ResponseMessages.Items(0).MessageText)

                Return Nothing

            Else

                Dim rmta() As ResponseMessageType = findFolderResponse.ResponseMessages.Items

                Dim rmt As ResponseMessageType

                For Each rmt In rmta

                    ' Cast to the correct response message type

                    Dim ffResponse As FindFolderResponseMessageType = rmt

                    Dim fFoundFolder As FolderType

                    For Each fFoundFolder In ffResponse.RootFolder.Folders

                        rvFolderID = fFoundFolder.FolderId

                        'MessageBox.Show(fFoundFolder.DisplayName)

                    Next

                Next

                'Return the FolderID of the last folder found

                Return (rvFolderID)

            End If

        Catch e As Exception

            MessageBox.Show(e.Message)

            Return Nothing

        End Try

    End Function

Public Shared Function MoveItemtoTest(ByVal serviceBinding As ExchangeServiceBinding, ByVal itemID As String, ByVal trgfldID As FolderIdType) As ItemIdType

        'Setup FolderId and ItemId to be passed to MoveItem

        Dim tfTargetFolder As TargetFolderIdType = New TargetFolderIdType()

        tfTargetFolder.Item = trgfldID

        Dim iiItemId As ItemIdType = New ItemIdType()

        iiItemId.Id = itemID

        'Create request to move Item and specify properties

        Dim miMoveItemRequest As MoveItemType = New MoveItemType()

        miMoveItemRequest.ItemIds = New ItemIdType(1) {}

        miMoveItemRequest.ItemIds(0) = iiItemId

        miMoveItemRequest.ToFolderId = tfTargetFolder

        Dim nID As New ItemIdType

        Try

            ' Send the request and get the response

            Dim miResponse As MoveItemResponseType = serviceBinding.MoveItem(miMoveItemRequest)

            If miResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then

                MessageBox.Show("Error Occured")

                MessageBox.Show(miResponse.ResponseMessages.Items(0).MessageText)

                Return Nothing

            Else

                Dim iirmt As ItemInfoResponseMessageType = miResponse.ResponseMessages.Items(0)

                If iirmt.Items.Items.Length > 0 Then

                    'Get updated ItemId from the Response Message

                    nID = iirmt.Items.Items(0).ItemId

                    MessageBox.Show("Item Moved")

                    'Return updated ItemID

                    Return nID

                Else

                    Return Nothing

                End If

            End If

        Catch e As Exception

            MessageBox.Show(e.Message)

            Return Nothing

        End Try

    End Function