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

Petit FLL (DLL spécifique à Foxpro) pour créer des courriels   


L'auteur

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

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle

Note des membres
pas de note

Contributions > 12 - Envoyer des Emails

Petit FLL (DLL spécifique à Foxpro) pour créer des courriels
# 0000000413
ajouté le 01/03/2007 21:01:55 et modifié le 01/03/2007
consulté 9110 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Télécharger le ZIP (9.25 Ko)
Description
Voici un petit FLL (DLL spécifique à Foxpro) 32k, pour créer et envoyer des courriels. Veulliez noter que dépendant du setting de Outlook, le courriel reste dans le Outbox, jusqu'à que l'utilisateur fasse send/receive. Et l'avantage est qu'avec cette méthode, L'écran d'avertissement n'apparait pas. Et pas besoin de l'enregistrer.
Code source :
#define MAPI_ORIG 0
#define MAPI_TO 1
#define MAPI_CC 2
#define MAPI_BCC 3
#define IMPORTANCE_LOW 0
#define IMPORTANCE_NORMAL 1
#define IMPORTANCE_HIGH 2
CLEAR
LOCAL lcAttachment
SET LIBRARY TO LOCFILE("vfpexmapi.fll")
EMCreateMessage("Subject Test", "Body Test", IMPORTANCE_NORMAL)
EMAddRecipient("someemail@somedomain.com", MAPI_TO)
m.lcAttachment = ADDBS(SYS(2023)) + SYS(2015) + ".TXT"
=STRTOFILE("Visual FoxPro Rocks!", m.lcAttachment, 0)
EMAddAttachment(m.lcAttachment)
EMSend()
IF FILE(m.lcAttachment)
    ERASE (m.lcAttachment)
ENDIF
SET LIBRARY TO
Commentaires
le 04/06/2007, vanille a écrit :
bonjour Mike,

est il possible d'envoyer un message au format HTML ?
Merci

Nadia
le 18/04/2008, pcn a écrit :
Bonjour, ça marche très bien ... il y a une note ajoutée en bas de mail (en anglais, ci-desous), peut-on l'éviter ? Merci pour votre aide.

This message may contain confidential information and is intended only for
the individual named herein. If you are not the herein named addressee you
should not disseminate, distribute, copy or otherwise make use of this
e-mail. Please notify the sender immediately by e-mail if you have received
this e-mail by mistake, and delete this e-mail from your system. Thank you.
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2025.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3