-2147352567 Cannot move the items

Question

I have a VB.Net application that automates Outlook using Interop. One function of the application is to move an Outlook message to a subfolder of a shared inbox when the message has been processed, using MailItem.Move(Folder). About 50% of the time, the
move of the message fails with error -2147352567 returned. Is there any way of determining why this is happening?
Thanks in advance.

Answer 1

Hi Eugene,
I'll paste the relevant code below. It's run on the user's PC in a VB.Net 2010 application.
Public Sub ArchiveCompletedMessage(ByRef pstrMessageID As String)
Dim objOutlook As Object = New Outlook.Application
If IsNothing(objOutlook) Then
MsgBox("Error: An attempt to access or start Outlook has failed. Please contact the Help Desk.", MsgBoxStyle.Exclamation, gstrAppName)
Exit Sub
End If
Dim objNameSpace As Object = objOutlook.GetNamespace("MAPI")
If IsNothing(objNameSpace) Then
MsgBox("Error: An attempt to access the Outlook Namespace has failed. Please contact the Help Desk.", MsgBoxStyle.Exclamation, gstrAppName)
objOutlook = Nothing
Exit Sub
End If
Dim objMessage As Outlook.MailItem = objNameSpace.GetItemFromID(pstrMessageID)
Dim astrFolders() As String = Split(gstrDeptMailboxActioned, "\")
Dim intCount As Integer = 0
If currentSettings.IsDebugMode = True Then
MsgBox("Move e-mail: step 1")
End If
On Error Resume Next
Dim objFolder As Object = objNameSpace.Folders(astrFolders(0))
If Err.Number <> 0 Then
MsgBox("An error has occurred when trying to access the departmental processed mailbox '" & astrFolders(0) & "'." & vbNewLine & vbNewLine & Err.Number & " - " & Err.Description, MsgBoxStyle.Exclamation, gstrAppName)
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
If currentSettings.IsDebugMode = True Then
MsgBox("Move e-mail: step 2")
End If
Dim objFinalFolder As Outlook.Folder = objFolder
Dim bolFolderFound As Boolean = False
For intCount = 1 To astrFolders.GetUpperBound(0)
For Each objSubFolder As Outlook.Folder In objFinalFolder.Folders
If objSubFolder.Name = "Inbox" Then
objFolder = objSubFolder
End If
If objSubFolder.Name = astrFolders(intCount) Then
objFinalFolder = objSubFolder
bolFolderFound = True
Exit For
Else
bolFolderFound = False
End If
Next
Next
If bolFolderFound = False Then
MsgBox(" An atempt to access folder " & gstrDeptMailboxActioned & " has failed. The current e-mail will not be marked as read or moved to the actioned folder.", MsgBoxStyle.Information, gstrAppName)
objNameSpace = Nothing
objOutlook = Nothing
Exit Sub
End If
If objMessage.UnRead Then
objMessage.UnRead = False
End If
On Error Resume Next
objMessage.Move(objFinalFolder)
If Err.Number <> 0 Then
MsgBox("An error occurred when trying to move the e-mail to the actioned folder. The error message follows:" & vbNewLine & vbNewLine & "[" & Err.Number & "] - " & Err.Description & vbNewLine & vbNewLine & "Please move the message manually.", MsgBoxStyle.Exclamation, gstrAppName)
objMessage = Nothing
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
Dim objTmpMessage As Outlook.MailItem
For Each objTmpMessage In objFolder.Items
If objTmpMessage.EntryID = pstrMessageID Then
MsgBox("The e-mail you have just processed was not moved into the actioned folder; please move the message manually to avoid case duplication.", MsgBoxStyle.Information, gstrAppName)
Exit Sub
End If
Next
End Sub