Embedded messages not saved properly with Redemption

[Mat Farabee]

When saving an Outlook message in .msg format using Redemption
(SafeMailItem.SaveAs), embedded message attachments aren't saved properly
(see code below). They show up in the saved message with a tilde (~) for
the attachment name. When I try to open the embedded file, I get the
message "One or more parameters are incorrect".

Any suggestions?

- Mat Farabee

Sub SaveMessage(objMessage As MAPI.Message, strSaveAs As String)
' Declarations
Dim objRedMessage As Object
Dim FSO As New Scripting.FileSystemObject

' Save file if it doesn't already exist
If Not FSO.FileExists(strSaveAs) Then
' Create new Redemption SafeMailItem object
Set objRedMessage = New Redemption.SafeMailItem
objRedMessage.Item = objMessage
' Save message
objRedMessage.SaveAs strSaveAs, 3 ' .msg format
End if

' Clean up
Set objRedMessage = Nothing
Set FSO = Nothing
End Sub

 

[Dmitry Streblechenko \(MVP\)]

Which version of Redemption are you using?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

 

[Mat Farabee]

I tested both versions 3.4.0.348 and 3.4.325 had the same results.

 

[Dmitry Streblechenko \(MVP\)]

Can you send to my private address MSG files created by Outlook (File | Save
As) and by Redemption (SafeMailItem.SaveAs)? Please zip the MSG files.
Thanks!

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool