Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Email using VFP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01571978
Message ID:
01572060
Vues:
103
>i am sending mails using CDO from my visual foxpro application.
>
>the mails are being send and there is no problem.
>
>but now my client wants to know which mails are being sent.
>
>i cannot see this in the browser, is there a way for me to see the mails being send without having to resort to storing the history in a table ?

This will save your sent e-mail in whatever folder you want in an .eml format file.
Local lcFileName,lcStr
Local lcPathtosave,omsg
lcPathtosave = 'c:\emails\sent\'
lcFileName = Sys(2015)+'.eml'
lcFileName=lcPathtosave+lcFileName
omsg = Createobject("CDO.Message")
omsg.To ='mike@somewhere.com'
omsg.From ='me'
omsg.subject ='test1'
omsg.htmlbody='this is a test'
omsg.Send()
lcStr = omsg.getstream
lcStr.SaveToFile(lcFileName,1)
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform