Save .msg attachment as .rtf

H

hlock

If an email has a .msg attachment, I need to save it off as an .rtf
attachment. Is there a way to do this?

If lngCount > 0 Then
' We need to use a count down loop for
' removing items from a collection. Otherwise,
' the loop counter gets confused and only every
' other item is removed.
For i = lngCount To 1 Step -1
Dim path As String
' Get the file name.
strfile = objAttachments.Item(i).FileName
'Check filename of attachment to see if .msg
If Right(strfile, 3) = "msg" Then
strfile = Replace(strfile, " ", "_")
strfile = strfile & ".rtf"
path = fso.BuildPath(tempdir, strfile)
objAttachments.Item.SaveAsFile path, olRTF
ExecCmd "ttimport.exe " & app & " " & strfile
Else
strfile = Replace(strfile, " ", "_")
'Combine with the path to the Temp folder.
strfile = tempdir & strfile
' Save the attachment as a file.
objAttachments.Item(i).SaveAsFile strfile
ExecCmd "ttimport.exe " & app & " " & strfile
End If
Next i
End If
Thanks!!
 
M

Michael Bauer [MVP - Outlook]

As far as I know Outlook can save only rtf formatted messages as rtf files.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 18 Nov 2009 09:31:03 -0800 schrieb hlock:
 
H

hlock

What about fooling it? Can we copy all of the aspects of the .msg (To, From,
CC, Subject, Body, etc) and create and .rtf. We are trying to avoid
importing .msg files into our document respository system since who knows
what email system we may be on later down the road. Any thoughts... If this
might work, how would I go about doing this?
 
D

Dmitry Streblechenko

Do you really mean embedded message attachments or regular attachments with
an .MSG extension?

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

Dmitry Streblechenko

You can try to save the attachment as an MSG file and then import it back
using Application.CreateItemFromTemplate, butt that will wipe out teh sender
and recipeint related properties.
<plug>
You can use Redemption to open the MSG file directly using
RDOSession.GetMessageFromMsgFile, and then call RDOMail.SaveAs ..., olRtf
</plug>

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

Michael Bauer [MVP - Outlook]

RDOSession.GetMessageFromMsgFile, and then call RDOMail.SaveAs ..., olRtf
Click to expand...

Would that preserve formattings of an html message?

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Wed, 18 Nov 2009 16:32:19 -0700 schrieb Dmitry Streblechenko:
 
D

Dmitry Streblechenko

That depends on whether the HTML is stored as RTF wrapped HTML in
PR_RTF_COMPRESSED.

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

Similar Threads

Word macro that can call cells out of Excel for a find and replace 0
Better way of writing Macro? Identify multiple types of attachmen 5
Shorten file name 3
Attachment Array? 5
Macro doesn't run on Word:mac 2011 1
Using Array for Attachments? 1
new email received 2
save attachment macro w/ "run a script" rule 5

Top