Enviar SMS utilizando o Zenvia

[Fernando Rodrigo]

Ola pessoal, alguem ja utilizou o http://www.zenvia.com.br/ para enviar SMS ?

Se alguem ja utilizou como foi a integração, estou tentando fazer via webservices so que o pessoal não tem nenhum demo e não consegui fazer funcionar

http://docs.zenviasms.apiary.io/#reference

 

 

[Fernando Rodrigo]

resolvido

[carlosinfoteen]

2 horas atrás, Fernando Rodrigo disse:

resolvido

Fernando, como você fez para enviar, poderia compartilhar um exemplo.

[Fernando Rodrigo]

segue codigo para envio

 

faça primeiro o import do wsdl depois o codigo abaixo 

 

o campo

sms.account e o conta feita pelo zenvia

sms.code e a senha de integração

procedure TForm26.Button2Click(Sender: TObject);
var
    ret : string;
    sms : SendSmsRequest;
    ser : Sms_BindingImpl;
begin
    sms          := SendSmsRequest.Create;
    sms.account  := 'xxxxxxxxxxxxxxxxxxx';
    sms.code     := 'xxxxxxxxxx';
    sms.msg      := Txt_Mensagem.Text;
//    sms.from     := txt_from.text;
    sms.mobile   := txt_telefone.Text;
    sms.id       := codigo sequencial ou seu codigo, nunca poderá ser repetido

    ser := GetSms_BindingImpl(false,'',httprio1);
    ret := ser.sendSms(sms);

    txt_Retorno.Text:=ret;
end;
 

[carlosinfoteen]

Beleza Fernando obrigado. Tentei criar uma conta lá, mas não estou conseguindo no momento, depois tento novamente.

Você contratou um plano de envio já? Ou só está com a opção de teste?

[Fernando Rodrigo]

por enquanto somente teste

ligue no 0800-6032721 fale com a Paula Parnow

ela irá criar uma conta para vc

[carlosinfoteen]

Blz então. Valeu mais uma vez.

[evertonbuenolima]

Em 08/06/2017 at 15:08, Fernando Rodrigo disse:

segue codigo para envio

 

faça primeiro o import do wsdl depois o codigo abaixo 

 

o campo

sms.account e o conta feita pelo zenvia

sms.code e a senha de integração

procedure TForm26.Button2Click(Sender: TObject);
var
    ret : string;
    sms : SendSmsRequest;
    ser : Sms_BindingImpl;
begin
    sms          := SendSmsRequest.Create;
    sms.account  := 'xxxxxxxxxxxxxxxxxxx';
    sms.code     := 'xxxxxxxxxx';
    sms.msg      := Txt_Mensagem.Text;
//    sms.from     := txt_from.text;
    sms.mobile   := txt_telefone.Text;
    sms.id       := codigo sequencial ou seu codigo, nunca poderá ser repetido

    ser := GetSms_BindingImpl(false,'',httprio1);
    ret := ser.sendSms(sms);

    txt_Retorno.Text:=ret;
end;
 

Fala Fernando,

 

eu tentei utilizar dessa forma, porém parece que atualizaram o webservice, tentei aqui fazer e não estou conseguindo, você tem o exemplo de envio com o novo webservice?