Import msg files in Outlook

[MarcoBoschi]

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