Information générale
Catégorie:
Produits tierce partie
Titre:
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()
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement