The code below incorporates a workaround to to what the title of this
post says. The workaround is suggested in, "http://www.dimastr.com/
redemption/faq.htm#15". rMessage is always nothing after 'reopen the
same message as Redemption.MessageItem is exectuted even though it
seems to have a strEntryID. Is this more likely a problem with the
Utils object or the saved message?

Thanks

Dim strEntryID As String, Utils, rMessage, mySentOn As Date
Set Utils = CreateObject("Redemption.MAPIUtils")
....
sItem.Import fullpath, 3 'olMSG, olRFC822
and olTNEF formats are supported
' the following code added to get correct SentOn date
' http://www.dimastr.com/redemption/faq.htm#15
'MsgBox (sItem.Subject & ", " & sItem.entryID)
sItem.Save 'Save the OOM
object just to make sure EntryID is available
strEntryID = sItem.entryID 'remember the
entry id
mySentOn = #11/11/2007#
Set rMessage = Utils.GetItemFromID(strEntryID) 'reopen the
same message as Redemption.MessageItem
If Not rMessage Is Nothing Then
MsgBox (rMessage.Subject & " --- found")
'rMessage.Import fullpath, 1024
rMessage.Import fullpath, 3
rMessage.Save
mySentOn = rMessage.SentOn
Else
' always takes this path
MsgBox (sItem.Subject & " --- missing")
End If
' end of kludge