PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 25 → WD -  Enviando um e-mail usando o Add ()
WD - Enviando um e-mail usando o Add ()
Started by BOLLER ADRIANO, Jun., 28 2016 9:31 PM - No answer
#1
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on June, 28 2016 - 9:31 PM
1er exemple : Email en texte brut

// Construction du message
MonMessage est un Email
MonMessage..Expediteur = MoiMême@free.fr

//indiquer ici son adresse email pour le test
Ajoute(MonMessage..Destinataire,<saisir ici le destinataire>)
MonMessage..Sujet = "Mon sujet"
MonMessage..Message = RTFVersTexte("Le contenu de mon message")
MonMessage..HTML = RTFVersHTML("Le contenu de mon message")

// Ouverture une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.free.fr"
SI PAS EmailOuvreSession(MaSession) ALORS RETOUR

// Envoi du message
EmailEnvoieMessage(MaSession,MonMessage)

// Fermeture de la session
EmailFermeSession(MaSession)

2eme exemple : Email en HTML

contenu_email_vic_html est une chaîne
contenu_email_vic_html = [
<!-- Page2 13/05/2011 17:45 WebDev 16 16.0.81.4 --><HTML><HEAD><title></title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<META NAME="GENERATOR" content="WEBDEV">
<script>
<!--
var _DO_=null;var _PAGE_=null
function _LOD_COM(event){}
function _UNL_COM(event){}
//-->
</script>
<link rel=stylesheet type=text/css href="bugemail.css">
<link rel=stylesheet type=text/css href="iStyle.css">
<STYLE TYPE=text/css></STYLE></HEAD><BODY topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 bgcolor=#F4F4F4 TEXT=#2D2D2D LINK=#379DC3><FORM NAME=PAGE2 ACTION=Page2.htm target=_self METHOD=POST><script>_DO_=((document.divform!=null)&&(document.divform.document!=null))?document.divform.document:document;_PAGE_=_DO_.PAGE2</script>
<div class=h-0><INPUT TYPE=HIDDEN NAME=WD_BUTTON_CLICK_><INPUT TYPE=HIDDEN NAME=WD_ACTION_></div><TABLE WIDTH=419>
<TR><TD COLSPAN=3 HEIGHT=56/></TR><TR><TD ROWSPAN=2 WIDTH=46/><TD CLASS=Simple-150-iStyle-Gentle-Light valign=middle id="A1" WIDTH=373><FONT SIZE=1>Ceci est un fichier HTML</FONT><br /><B>Ceci est un fichier HTML</B><br /><FONT COLOR=#ff0000><B>Ceci est un fichier HTML</B></FONT><br /><FONT SIZE=5>Ceci est un fichier HTML</FONT><br /><FONT COLOR=#33cc66 SIZE=6>Ceci est un fichier HTML</FONT><br /></TD><TD height=132/>
<TR><TD width=373/><TD/>
</TABLE>
</FORM>
</BODY></HTML><!--1373-->
]

MonMessage est un Email
MonMessage..Expediteur = MoiMême@free.fr

//indiquer ici son adresse email pour le test
Ajoute(MonMessage..Destinataire,<saisir ici le destinataire>)
MonMessage..Sujet = "Mon sujet"
MonMessage..Message = "Le contenu de mon message"
EmailImporteHTML(MonMessage, contenu_email_vic_html,fRepExe())

// Ouverture une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "smtp.free.fr"
SI PAS EmailOuvreSession(MaSession) ALORS RETOUR

// Envoi du message
EmailEnvoieMessage(MaSession,MonMessage)

// Fermeture de la session
EmailFermeSession(MaSession)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Go back to WINDEV 25