[VB] Outlook.Explorer - Can't move the items

[Dieter Tack]

Hello

By holding a Reference (WithEvents) to a Outlook.Explorer object, when
you search within a folder and then drag and drop an item to another
folder, Outlook XP gives then the following error "Can't move the
items".

Outlook doesn't give this error, when you right-click on the item,
then click the "Move to Folder..." item, and next click on another
folder. The item is moved correctly then.

Below you find some code (VB COM AddIn) the generates the problem
<code>
Implements IDTExtensibility2
Private WithEvents m_objExplorer As Outlook.Explorer

Private Sub IDTExtensibility2_OnConnection(ByVal Application As
Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode,
ByVal AddInInst As Object, custom() As Variant)
Dim appOutlook As Outlook.Application
Set appOutlook = Application
If appOutlook.Explorers.Count > 0 Then
Set m_objExplorer = appOutlook.ActiveExplorer
End If
End Sub

Implements IDTExtensibility2
Private WithEvents m_objExplorer As Outlook.Explorer

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
'
End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
'
End Sub

Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As
AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
'
End Sub

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
'
End Sub
</code>

Is that a bug within Outlook? Is there a workaround for?

Thanks in advance,
Dieter Tack
Aquanta Networks