OT: Outlook and copying sent/received over to a folder

I want to email copies of several hundred emails over to a separate folder, in order to email them as a zip and have found a problem...
Many of the emails have the same Subject line, so the 2nd email with the same subject line will want to overwrite the first. For instance the first email copy to the folder might be called RE: XYZ, the second one where I have replied the first one will also have the same name ad try to overwrite the first.
I'm highlighting the emails I want to copying in Outlook, then dragging and dropping in a folder.
Has anyone found an easy way to do this, but yet allow them to be opened up in Outlook on delivery please?
--
Regards,
Harry (M1BYT) (L)
  Click to see the full signature.
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
On 01/09/2012 14:26, Harry Bloomfield wrote:

Create a new Outlook Data File (.PST file) and copy the desired emails to that; then zip the .PST file and email that, then the recipient can open the .PST file at the other end
David
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Agreed, the only issue on duplicate subject names is if each email is exported as a separate file, copying the relevant emails (within Outlook) to a separate pst file and importing that at the new destination should overcome this issue (far easier than it could be done in outlook excuse).
--
fred
it's a ba-na-na . . . .
  Click to see the full signature.
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
On 01/09/2012 14:26, Harry Bloomfield wrote:

Your best bet is a macro that gives each email a unique name, then copies each one separately to a folder as a .msg file. Then zip up the folder and email it.
I use this macro:
Sub SaveSelectedMessages() Dim olItem As Outlook.MailItem Dim fName As String Dim fPath As String Dim MyRecdSent As String
fPath = "C:\Test\" 'the folder path to save the documents For Each olItem In ActiveExplorer.Selection
If olItem.ReceivedByName = "" Then MyRecdSent = "Sent" Else MyRecdSent = "Recd"
fName = Format(olItem.ReceivedTime, "yymmdd") & Chr(32) & Format(olItem.ReceivedTime, "HH.MM") _ & Chr(32) & MyRecdSent & " - " & olItem.Subject & ".msg" fName = Replace(fName, Chr(58) & Chr(41), "") fName = Replace(fName, Chr(58) & Chr(40), "") fName = Replace(fName, Chr(34), "-") fName = Replace(fName, Chr(42), "-") fName = Replace(fName, Chr(47), "-") fName = Replace(fName, Chr(58), "-") fName = Replace(fName, Chr(60), "-") fName = Replace(fName, Chr(62), "-") fName = Replace(fName, Chr(63), "-") fName = Replace(fName, Chr(124), "-") olItem.SaveAs fPath & fName Next olItem Set olItem = Nothing End Sub
Just select the emails you want and run the macro.
HTH
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

HomeOwnersHub.com is a website for homeowners and building and maintenance pros. It is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.