ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment sauvegarder une copie d'un courriel envoyé avec CDO   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 12 - Envoyer des Emails

Comment sauvegarder une copie d'un courriel envoyé avec CDO
# 0000000852
ajouté le 27/04/2013 13:01:37 et modifié le 27/04/2013
consulté 3573 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0

Description

Voici comment garder une copie d'un courriel envoyé par CDO dans un répertoire donné
pour fin d’archive.

Code source :
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)

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3