PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → comment envoyer un mail
comment envoyer un mail
Débuté par n.roux, 15 nov. 2006 16:41 - 2 réponses
#1
Posté le 15 novembre 2006 - 16:41
bonjour
j'ai crée un fichier client dans lequel je rentre son adresse mail. Au sein de mon réseau j'ai un serveur exchange et pour les mails exterieurs je passe par le smntp de wanadoo.
je souhaite qu'en cliquant sur un bouton envoyer un mail au client avec un fichier word en piece jointe

comment faire ?
merci
#2
Posté le 15 novembre 2006 - 17:16
PROCEDURE EXPEDIER_FICHIER_EMAIL()

FICHIER_ATT est une chaîne="C:\TMP\NOMFICHIER"

SI PAS fFichierExiste(FICHIER_ATT) ALORS
Info("Abandon pour absence du fichier "+FICH_ATT)
Renvoyer faux
FIN

SI InternetConnecté()=Faux ALORS
Info("Internet non connecté.")
Renvoyer faux
FIN

sCOMPTELOGIN est chaîne="DUPONT"
sCOMPTEADRSMTP est chaîne="ADRESSE SERVEUR SMTP "
sCOMPTEADRMAIL est chaîne="monpseuexpéditeur@france.fr"

// ouverture de session

EmailOuvreSessionSMTP(COMPTELOGIN,COMPTEADRSMTP)
SI ErreurDétectée ALORS
Info(ErreurInfo())
Renvoyer Faux
FIN


sCHAINEMESSAGE est une chaîne="BONJOUR"

EmailRAZ()

Email.Sujet ="Expédition automatique d'un fichier "
Email.Message =sCHAINEMESSAGE
Email.Expéditeur = sCOMPTEADRMAIL
Email.AdresseExpéditeur = sCOMPTEADRMAIL
Email.Destinataire="ADRESSE_EMAIL_DESTINATAIRE"
Email.NbDestinataire = 1
Email.Attache=FICHIER_ATT
Email.NbAttache = 1
Email.AccuséRéception=Vrai



//envoie du mail
SI EmailEnvoieMessage(COMPTELOGIN)=Faux ALORS
Erreur("EmMailEnvoieMessage a échoué '" + ...
ErreurInfo( errMessage ) + "'")
EmailFermeSession(COMPTELOGIN)
Renvoyer faux
FIN

EmailFermeSession(COMPTELOGIN)
Renvoyer Vrai
#3
Posté le 15 novembre 2006 - 17:16
Salut,

Regardez dans l'aide en ligne les fonctions EmailEnvoieMessage. Il y a un exemple dans lequel il vous suffira de remplacer les adresses pop3 et smtp par celles de votre provider.

Pour joindre un document, il suffit de renseigner le nombre de pièces jointes dans email.nbattaches et de garnir le tableau email.attache avec les noms des fichiers attachés. Consultez pour cela l'aide en ligne de la structure e-mail.

Bons dev
→ Revenir à WINDEV 2024