PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → Send Email
Send Email
Débuté par adrianoboller, 24 nov. 2014 12:13 - Aucune réponse
Membre enregistré
2 969 messages
Popularité : +89 (91 votes)
Posté le 24 novembre 2014 - 12:13
Procedure EnviarEmail(LOCAL Usuario, LOCAL Senha, LOCAL Imei)

Mensagem is string = "Login: "+ Usuario + "; Senha: " + Senha + "; Imei: " + Imei

HourGlass(True) //Ampulheta de espera

WsEmail is string = "http://www.touroperator.com.br/webservice/ws.asmx/EnviaEmail?idWS=string01&CodSite=string02&de=string03¶=string04&assunto=string05&texto=string06&cc=string07&bcc=string08"

WsEmail = Replace(WsEmail,"string01","TESTE_WS_VITALCARD")
WsEmail = Replace(WsEmail,"string02",1)
//DE
WsEmail = Replace(WsEmail,"string03","adrianoboller@gmail.com")
//PARA
WsEmail = Replace(WsEmail,"string04","hsalomon@brandsupply.com.br")
//Assunto
WsEmail = Replace(WsEmail,"string05","Novo cadastro no sistema Motolink")
//MENSAGEM
WsEmail = Replace(WsEmail,"string06",Mensagem)
//CC
WsEmail = Replace(WsEmail,"string07","ccapelache@brandsupply.com.br")
//CCO
WsEmail = Replace(WsEmail,"string08","")

WsEmail = Replace(WsEmail," ","%20")
WsEmail = Replace(WsEmail,"&","&&")

//fSaveText("C:\retornoWsEmail.txt",WsEmail)

HTTPRequest(WsEmail)

sXMLInfo is string = HTTPGetResult()

//fSaveText("C:\retornoEmail.txt",XMLInfo)

//<?xml version="1.0" encoding="utf-8"?>
//<Retorno>
//<msg>Email enviado</msg>
//</Retorno>

NextTitle("Atenção")
Info("Email enviado com sucesso!..")

HourGlass(False) //Ampulheta de espera