Interop.Outlook не очищает выбранные письма при перетаскивании

Потратив часы на чтение различных решений этой проблемы, которая в конечном итоге стала ошибкой в ​​​​способе обработки события ввода в Outlook при перемещении элемента управления, который может обрабатывать перетаскивание в другой программе, я обнаружил, что вы можете это исправить с одной строкой кода, и это то, что нужно распространять!

Microsoft использует буфер обмена для хранения, среди прочего, информации о выделении. Класс, используемый Outlook для этой цели, скрыт за ключом RenPrivateMessages. Его нельзя использовать, потому что интерфейс не освобождают, но, прочитав его, вы снимаете блокировку выбора.

Итак, все, что вам нужно сделать в событии drop в вашем коде, — это добавить эту строку (учитывая, что ваш EventArg называется e):

e.data.GetData("RenPrivateMessages");

Я искал в Интернете решение без обходного пути для переключения панелей. После того, как я нашел решение, которое сработало для меня, я хотел бы поделиться им здесь.

Последней подсказкой было использование метода RemoveFromSelection активного проводника, потому что Marshal.ReleaseComObject не очищает выбор.

Public Sub outlook_drop()
    Try
        get_outlook_application_explorer()
        If IsNothing(oExplorer) = True Then
            MessageBox.Show("Cannot open Outlook.")
            Exit Sub
        End If

        Dim selection As Selection = oExplorer.Selection
        If selection.Count = 0 Then
            Marshal.ReleaseComObject(selection)
            MessageBox.Show("Nothing selected.")
            Exit Sub
        End If

        Dim filename As String
        Dim ext As String = ".msg"

        Dim mail As MailItem                                ' Important, no 'Shadow'-objects, such as "For Each mail as MailItem in selection", cos you need to free it with Marshal.ReleaseComObject()...
        For Each mail In selection
            Dim subtxt As String = mail.Subject
            If Not String.IsNullOrEmpty(subtxt) Then
                If subtxt.Length > 120 Then
                    subtxt = Left(subtxt, 120)
                End If
            End If

            filename = fill_filename(mail.Attachments.Count.ToString, subtxt, mail.SenderName, mail.ReceivedTime.ToShortDateString)

            Dim newFile As String = IO.Path.Combine(fuldir, filename + ext)
            Dim count As Integer = 0
            While IO.File.Exists(newFile)
                count += 1
                If count > 25 Then
                    newFile = Nothing
                    Exit While
                End If

                newFile = IO.Path.Combine(fuldir, filename + "(" + count.ToString + ")" + ext)
            End While

            If String.IsNullOrEmpty(newFile) = False Then
                mail.SaveAs(newFile)
            End If
            oExplorer.RemoveFromSelection(mail) ' Important, to remove the object from Selection, ReleaseComObject() only don't do.
            Marshal.ReleaseComObject(mail)  
        Next

        Marshal.ReleaseComObject(selection)
    Catch ex As System.Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

С уважением,

Кали

Использование делегата было не такой уж хорошей идеей, оказывается, вы можете найти обходной путь, чтобы повторно активировать свой прогноз.

После сохранения почтового элемента в файл я вызываю SwitchOutlookPanes()

 Public Sub SwitchOutlookPanes()
    Dim Outlook As Microsoft.Office.Interop.Outlook.Application
    Dim explorer As Microsoft.Office.Interop.Outlook.Explorer = Nothing
    Try
        If Outlook Is Nothing Then
            If Outlook Is Nothing Then Outlook = CType(Microsoft.VisualBasic.Interaction.GetObject("", "Outlook.Application"), Microsoft.Office.Interop.Outlook.Application)
            explorer = Outlook.ActiveExplorer
        End If

        If Outlook IsNot Nothing And explorer IsNot Nothing Then
            Dim nMAPIFOlder As Interop.Outlook.MAPIFolder = explorer.CurrentFolder
            explorer.CurrentFolder = Outlook.OlDefaultFolders.olFolderContacts
            System.Threading.Thread.Sleep(1500)
            explorer.CurrentFolder = nMAPIFOlder
        End If
    Catch ex As System.Exception
    Finally
        Marshal.ReleaseComObject(explorer)
        Marshal.ReleaseComObject(Outlook)
    End Try

End Sub

Это очищает выбор и предотвращает зависание/зависание Outlook.

С уважением,

Майк