General information
Category:
Third party products
Title:
Accessing Email Programs
I have an application that can read and write email using Outlook. I got the basic software from FoxPro Advisor. However, I also need to do it using Eudora, Netscape and Aol also.
Can anyone help here?
Here is how my VFP program for Outlook looks:
IoApp=CREATEOBJECT("Outlook.application")
IoSpace=IoApp.GetNameSpace("MAPI")
wait 'Now Look for Update from Whomever' window nowait
IoFolder=IoSpace.Folders("Personal Folders").Folders("Inbox")
For EACH IoMsg IN IoFolder.Items
if left(IoMsg.Subject,36)='Attached are Updates'
For EACH IoAttachment IN IoMsg.Attachments
if IoAttachment.Type=1
IoAttachment.SaveAsFile(xd+IoAttachment.Filename)
ENDIF
ENDFOR && do only 1st attachment?
IoMsg.Delete()
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only