Converting MSG files to TXT files

[Socaman10]

Hello,

I am probably posting a question that has already been answered. Because I am new to the Excel Forum, I was unable to find the solution.

I am writing a macro that includes converting a series to msg files to corresponding txt files. The full path is the parameter, for example "c:\Documents\OutlookFiles\message1.msg" Has this VBA code been written before? Thanks!

[kasan]

Hi,
Basically you can copy/paste all code below in a VBA module, then add Reference to "Microsoft Outlook Objects Library".
Change the path to the folder where all yours .msg file are (under ConvertMsgToTXT sub, see comment in code).
What you should be aware of - this code creates separate .txt file for each .msg, name of each .txt file is "Sender" + "Sent Date". In case there will be more than one Outlook message from the same Sender - files fill be re-written.
You should run "Sub ConvertMsgToTXT()" to get all .msg files converted.

Please Login or Register  to view this content.