FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Import msg files in Outlook
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Import msg files in Outlook
Posted: Sun Apr 12, 2009 05:29 PM
I Have a lot of msg files created simply with a lot of "copy and paste" from Outlook folder to explorer folder.
Mi intention is to import into another outlook in another PC.
Massive "copy and paste" in the opposite direction to create folder in new PC is not secure.
For instance a folder containing 1312 files with msg extension I found only 1245 message.
Sometimes appears an alert dialog who tell me that that file is in use from another applications and so on.
My questions is
Is it possible to use a program like this
#include "fivewin.ch"
FUNCION MAIN()
LOCAL oOutlook , i
LOCAL aDir := DIRECTORY("*.MSG")
oOutlook := CreateObject("Outlook.Application")

FOR i := 1 TO LEN(aDir)
:-) oOutlook:SomeFunctionToImportmsg( aDir[i,1] ) :-)
NEXT i
oOutlook:Quit()
RETURN NIL

Thanks in advance
Marco
Marco Boschi
info@marcoboschi.it

Continue the discussion