PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → EmailEnvoi
EmailEnvoi
Débuté par Nexus, 21 avr. 2005 19:31 - 2 réponses
#1
Posté le 21 avril 2005 - 19:31
Bonjour,
Il existe 2 méthodes dans WinDev pour envoyer un mail "EmailEnvoiMessage" et "EmailEnvoi". Pour la première fonction le header de l'e-mail est pré-formaté mais cela pose quelques problèmes à la réception c'est pourquoi je voudrais utiliser la fonction "EmailEnvoi". Je voudrais donc savoir comment est structuré la chaine passée en paramètre (header+corp du message)

Merci d'avance pour une réponse.
#2
Posté le 21 avril 2005 - 19:54
Vous avez un exemple de la structure du header dans l'aide livrée avec Windev : taper emailenvoie dans l'onglet Rechercher de l'aide et liser le chapitre EmailEnvoie Exemple.

Bon dev !
#3
Posté le 24 janvier 2006 - 18:25
Pour information cette exemple n'est pas disponible sous WD10
Voici celui présent dans WD9

// Création du message
ContenuMessage est une chaîne
ContenuMessage = "Return-Path: <%1>"+ RC + ...
"From: ""%2"" <%1>"+ RC +...
"To: <%3>"+ RC +...
"Subject: %4"+ RC +...
"MIME-Version: 1.0"+ RC +...
"Content-Type: text/plain;"+ RC +...
" charset=""us-ascii"""+ RC +...
"Content-Transfer-Encoding: 7bit"+ RC + RC +"%5"+ RC

//Ouverture d'une session SMTP
EmailOuvreSessionSMTP("SessionSMTP", "HL")
SI ErreurDétectée ALORS
Erreur(ErreurInfo( errRésumé )
RETOUR
FIN

//Remise a zéro des variables Email
EmailRAZ()

//Expéditeur du message
Email.Expéditeur = "expediteur@expediteur.fr"
Email.AdresseExpéditeur = "M. Expéditeur"

//Destinataire(s) du message
Email.NbDestinataire = 1
Email.Destinataire[1] = "destinataire@destinataire.fr"

//Sujet et contenu du message
Email.Sujet = "Sujet email"
Email.Message = "Corps de l'email"
SI fSauveTexte("ContenuEmail.txt", …
ChaîneConstruit(ContenuMessage,Email.Expéditeur,Email.AdresseExpéditeur, ...
Email.Destinataire[1],Email.Sujet,Email.Message)) = Faux ALORS
Erreur(ErreurInfo())
SINON
EmailEnvoie("SessionSMTP","ContenuEmail.txt")
SI ErreurDétectée ALORS
Erreur(ErreurInfo())
FIN
FIN

//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")
fSupprime("ContenuEmail.txt")
→ Revenir à WINDEV 2024