Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Importing messages from outlook into a VFP table?
Message
 
To
25/07/2000 14:40:29
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00396326
Message ID:
00586261
Views:
19
Where do find a list available variables such as .body, .subject, etc.?

>Doug,
>
>>I did have the outlook2000 client running at the time, and am using VFP6.0 SP4
>
>You could try something like this:
>
>1) start Outlook
>2) get references to "Inbox" and "Archive" (a folder I set up)
>3) step through inbox messages, storing message bodies (you could of course store date, from, subject, etc.)
>4) move messages to Archive folder
>5) close up
WAIT WINDOW NOWAIT "Starting up Outlook Email program"
>ol=createobject("outlook.application")
>ons=ol.getnamespace("MAPI")
>crea cursor mymail (mailtext M)
>oMain=ons.folders("Personal Folders").folders("Inbox")
>oArchive=ons.folders("Personal Folders").folders("Archive")
>lncount=oMain.items.count
>
>* in case you like to see what the counts are
>wait window "Inbox contains "+ALLTRIM(STR(lncount))+" messages."
>wait window "Saved folder contains "+ ;
>  ALLTRIM(STR(oArchive.items.count))+" messages."
>
>* NOTE: This processes messages from oldest date to newest
>FOR lnLoop = 1 TO lnCount
>  WAIT WINDOW NOWAIT "Processing Email Message # "+ALLTRIM(STR(lnLoop))+;
>    " of "+ALLTRIM(STR(lnCount))
>  INSERT INTO mymail (mailtext) ;
>    VALUES (oMain.items(lnLoop).body)
>ENDFOR
>
>FOR lnLoop = 1 TO lnCount
>  WAIT WINDOW NOWAIT "Archiving Email Message # "+ALLTRIM(STR(lnLoop))+;
>    " of "+ALLTRIM(STR(lnCount))
>  * must refer always to items(1) because after
>  * moving each message to archive, the next
>  * message shifts to #1
>  oItem=oMain.items(1)
>  oItem.move(oArchive)
>ENDFOR
>
>ons.Logoff
>ons=.NULL.
>ol=.NULL.
>WAIT CLEAR
>USE
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform