PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WEBDEV 2024 → Envoyer un mail depuis le serveur
Envoyer un mail depuis le serveur
Débuté par Js, 07 jan. 2005 11:08 - 3 réponses
#1
Posté le 07 janvier 2005 - 11:08
J'aimerais envoyer un mail depuis le serveur de mon entreprise (ou est installé ma version déploiement) qqn à un exemple de conde?

J'utilise outlook avec exange
#2
Posté le 01 février 2005 - 19:39
je cherche egalement le reponse
merci de me repondre si t ua des infos complémentaires
#3
Posté le 02 février 2005 - 09:10
Voici un exemple :

_Robot = Compte sur le serveur de messagerie
_SMTP = Adresse du serveur
SI EmailOuvreSessionSMTP(_Robot,_SMTP) ALORS
Email.NbDestinataire = 1
Email.Destinataire[1] = "toto@toto.com"
Email.sujet = "Test Pour Mot de passe"
Email.Message = "Veuillez trouver votre mot de passe : "
Email.adresseExpéditeur = "informatique@société.com"
Email.Expéditeur = "informatique@société.com"
SI PAS EmailEnvoieMessage(_Robot) ALORS
Erreur("Erreur","Le message n'a pas été
envoyé",ErreurInfo(errMessage))
SINON
Info("Le message contenant votre mot de passe vient de partir...")
FIN
EmailFermeSession(_Robot)
SINON
Erreur("Un problème technique ne permet pas d'envoyer d'email pour
l'instant.","","","Veuillez réessayer dans quelques minutes SVP.")
FIN

"philippe squeville" <philippe.squeville@ctcom.fr> a écrit dans le message
de news: 41ffb406$1@news.pcsoft.fr...

je cherche egalement le reponse
merci de me repondre si t ua des infos complémentaires

#4
Posté le 02 février 2005 - 09:24
philippe squeville a couché sur son écran :
je cherche egalement le reponse
merci de me repondre si t ua des infos complémentaires


C'est le site qui envoie le mail ? donc tu peux utiliser les fn
EmailEnvoie.
Voilà le bout de code utilisé par les wtablettes pour le formulaire de
publication (que je vous invite à utiliser bien sûr)

EmailOuvreSessionSMTP("EnvoiEmail", "smtp.tonsmtp.net")

//Email.Expéditeur = "NomExpéditeur <adresse@expediteur.com>"
Email.Expéditeur = AUTEUR+" <"+VOTREMAIL+">"
Email.Destinataire[1] = "contact <contact@tondomaine.net>"
Email.Destinataire[2]=AUTEUR+" <"+VOTREMAIL+">"
Email.NbDestinataire = 2
Email.NbAttache=0
Email.Sujet = "[PUBLIEZ] "+AUTEUR + " va publier "+TVD_TITRE+"
["+refId+"]"
Email.Message = txtmsg
// Envoie le mail
SI PAS EmailEnvoieMessage("EnvoiEmail") ALORS
Erreur("EmailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'")
SINON
Info("Votre demande a été envoyée par Email (+copie à votre
adresse)"+RC+...
"Merci de votre participation aux WTablettes")
FIN
EmailFermeSession("EnvoiEmail")

--
Eric
Webmaster des Wtablettes
www.wtablettes.net
→ Revenir à WEBDEV 2024