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

Comment envoyer un e-mail sans installer un Service SMTP   



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 envoyer un e-mail sans installer un Service SMTP
# 0000000013
ajouté le 14/10/2004 20:48:08 et modifié le 14/10/2004
consulté 6750 fois
Niveau initié

Description
Le code requiert l'installation de CDO (Collaboration Data Objects).
Vous pouvez obtenir de l'information sur le sujet ici:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;171440
Code source :
loEmail = CreateObject("CDO.Message")
loEmail.From = "moi@nullepart.com"
loEmail.To = "toi@nullepart.com"
loEmail.Subject = "Serveur non fonctionnel"
loEmail.Textbody = "Serveur principal est temporairement éteint."
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/smtpserver");
 = "smarthost"
loEmail.Configuration.Fields.Item;
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
loEmail.Configuration.Fields.Update
loEmail.Send

Commentaires
le 16/10/2005, MILCENT Bernhart a écrit :
Mike,

Si un client n'a pas installé IIS , Pourra t'il avec ton code envoyer des emails ?

bernhart

le 17/10/2005, Mike Gagnon a écrit :
Non, il faut au moins IIS installé.

le 25/04/2011, Azizou a écrit :
Salut Mike, j'essaye d'utiliser le code proposer pour envoyer un mail avec vfp6, voici ce que j'ai comme message d'erreur : " code d'exception OLE IDispatch 0 de CDO.Message.1 : le transport a échoué dans sa connexion au serveur". j'ai installer IIS7 pourtant. Peux tu me situer sur ce qui ne vas pas ou ce qu'il faut faire?
D'avance merci.

le 25/04/2011, Mike Gagnon a écrit :
change le 'smarthost' pour ton fournisseur SMTP.
le 25/04/2011, Azizou a écrit :
Excuses moi, qu'est ce que c'est le "smarthost"?
le 25/04/2011, Mike Gagnon a écrit :
azizou,

Il serait peut-etre mieux de poster cette question sur le newsgroup de l'association. Atoutfox n'est un site de question et reponses.

le 25/04/2011, Azizou a écrit :
ok merci !


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