GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WEBDEV 2024
→
Envoyer un mail depuis le serveur
Envoyer un mail depuis le serveur
Iniciado por Js, jan., 07 2005 11:08 AM - 3 respostas
Conecte-se…
Js
#1
Publicado em janeiro, 07 2005 - 11:08 AM
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
Denunciar
0
0
philippe squeville
#2
Publicado em fevereiro, 01 2005 - 7:39 PM
je cherche egalement le reponse
merci de me repondre si t ua des infos complémentaires
Denunciar
0
0
Frédéric RICHARD
#3
Publicado em fevereiro, 02 2005 - 9:10 AM
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
Denunciar
0
0
Eric R.
#4
Publicado em fevereiro, 02 2005 - 9:24 AM
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
Denunciar
0
0
→ Voltar para WEBDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (versões anteriores)
WEBDEV (versões anteriores)
WINDEV Mobile (versões anteriores)
Reports & Queries
Off-topic
Ferramentas
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto