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
(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