PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 25 → WX - Webservice envia email para aplicações web, mobile e desktop
WX - Webservice envia email para aplicações web, mobile e desktop
Débuté par adrianoboller, 04 mai 2015 15:35 - Aucune réponse
#1
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 04 mai 2015 - 15:35
ProcedureServidorWebserviceOffLineEmail()

//Enviar Email
//SendEmail
ok isboolean=False

Mensagem isstring=""

HReadSeekFirst(t001_cliente,t001_cliente.t001_seq_cliente,1)
IFHFound(t001_cliente) =TrueANDMensagem<>NullTHEN

XMLInfo isstring=""


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

Mensagem="<html><body lang=PT-BR><h1><b><center>APLICATIVO TAXI62 - SERVIDOR WEBSERVICE ESTA OFF-LINE</center></b></h1><br><br><h3><b>CLIENTE: </b>V001<br><b>TELEFONE: </b>V002<br><b>EMAIL: </b>V003<br><br><b>DATA DO ERRO: </b>V004 - <b>HORA DO ERRO: </b>V005<br><br>Verificar o webservice, pois o mesmo não está respondendo.</body></html>"

DATAERRO isstring=DateToString(DateSys(),"DD/MM/YYYY")
TIMEERRO isstring=TimeToString(TimeSys(),"HH:MM:SS")

Mensagem=Replace(Mensagem,"V001",t001_cliente.t001_nome)//CLIENTE
Mensagem=Replace(Mensagem,"V002","("+t001_cliente.t001_ddd_telefone+") "+t001_cliente.t001_num_telefone)//TELEFONE
Mensagem=Replace(Mensagem,"V003",t001_cliente.t001_email)//EMAIL
Mensagem=Replace(Mensagem,"V004",DATAERRO)//DATA
Mensagem=Replace(Mensagem,"V005",TIMEERRO)//HORA

Mensagem=NoAccent(Mensagem)

Mensagem=WS_RemoveAcentos(Mensagem)
Mensagem=Capitalize(Mensagem)

Mensagem=Upper(Mensagem)

//Config - idws
IDWS isstring="TESTE_WS_SCHULTZ"

//CodSite
CodSite isstring=4

//Email
WsEmail=Replace(WsEmail,"string01",IDWS)
WsEmail=Replace(WsEmail,"string02",CodSite)
WsEmail=Replace(WsEmail,"string03","executivo-radiotaxi@taxifaixavermelha.com.br")
WsEmail=Replace(WsEmail,"string04","presidente@taxifaixavermelha.com.br")
WsEmail=Replace(WsEmail,"string05","Taxi62 - Solicitacao via Email: "+t001_cliente.t001_cod_clientecelula+" - "+t001_cliente.t001_nome+" Celular: ("+t001_cliente.t001_ddd_telefone+") "+t001_cliente.t001_num_telefone)
WsEmail=Replace(WsEmail,"string06",Mensagem)
WsEmail=Replace(WsEmail,"string07","comercial@taxifaixavermelha.com.br")
WsEmail=Replace(WsEmail,"string08","adrianoboller@gmail.com")
WsEmail=Replace(WsEmail," ","%20")
WsEmail=Replace(WsEmail,"&","&&")

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

ok=HTTPRequest(WsEmail)

IFok=True
XMLInfo=HTTPGetResult()
END

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

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


END
>
→ Revenir à WINDEV 25