Embedded messages not saved properly with Redemption

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
 
D

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top