I've written a tiny piece of combined CDO/Outlook code to permanently delete
a message.  Half the time, after the message is deleted, it still shows in
the folder.  But if I navigate to another folder, then navigate back to the
original folder, the message is gone.  Any suggestions about how to make it
disappear right away?  Thanks.

Here's the code:

Public Sub PermanentlyDeleteItem(objItem As Object)
'permanently deletes objItem from store
   Dim objCDOMsg As MAPI.Message
   Dim objCDOSession As MAPI.Session
   Dim strEntryID As String
   Dim strStoreID As String
   
   On Error Resume Next
   If Not objItem Is Nothing Then
       Set objCDOSession = New MAPI.Session
       objCDOSession.Logon "", "", False, False
       strEntryID = objItem.EntryID
       strStoreID = objItem.Parent.StoreID
       Set objCDOMsg = objCDOSession.GetMessage(strEntryID, strStoreID)
       If Not objCDOMsg Is Nothing Then
           objCDOMsg.Delete
       End If
   End If
   
   Set objItem = Nothing
   Set objCDOMsg = Nothing
   objCDOSession.Logoff
   Set objCDOSession = Nothing
   Set objCDO = Nothing
End Sub