|
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()
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 = ""
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) Mensagem = Replace(Mensagem, "V002", "(" + t001_cliente.t001_ddd_telefone +") "+ t001_cliente.t001_num_telefone) Mensagem = Replace(Mensagem, "V003", t001_cliente.t001_email) Mensagem = Replace(Mensagem, "V004", DATAERRO) Mensagem = Replace(Mensagem, "V005", TIMEERRO)
Mensagem = NoAccent(Mensagem)
Mensagem = WS_RemoveAcentos(Mensagem) Mensagem = Capitalize(Mensagem)
Mensagem = Upper(Mensagem)
IDWS is string = "TESTE_WS_SCHULTZ"
CodSite is string = 4
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,"&","&&")
HTTPTimeOut(GloHTTPTimeOut)
ok = HTTPRequest(WsEmail)
IF ok = True XMLInfo = HTTPGetResult() END
END |
| |
| |
| | | |
|
| | | | |
| | |
|