PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

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
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 04 mai 2015 - 15:35
Procedure ServidorWebserviceOffLineEmail()

//Enviar Email
//SendEmail
ok is boolean = False

Mensagem is string = ""

HReadSeekFirst(t001_cliente,t001_cliente.t001_seq_cliente,1)
IF HFound(t001_cliente) = True AND Mensagem <> Null THEN

XMLInfo is string = ""


//WS - Email
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"

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 is string = DateToString(DateSys(),"DD/MM/YYYY")
TIMEERRO is string = 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 is string = "TESTE_WS_SCHULTZ"

//CodSite
CodSite is string = 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)

IF ok = True
XMLInfo = HTTPGetResult()
END

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

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


END