Embedded messages not saved properly with Redemption

  • Thread starter Thread starter Mat Farabee
  • Start date Start date
M

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
 
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
 
Back
Top