Integracao WhatsApp Funcionalidades
Necessário realizar previamente as configurações, conforme Cadastro e Configurações
Gerar Token de Acesso
Tokens de acesso são utilizados para realizar os envios das mensagens aos clientes.
Requisição
function BuscarToken(Client_ID, Client_Secret, Token: String): String;
- Cliente ID: É a ID do aplicativo.
- Cliente Secrete: É a chave secreta do aplicativo.
- Token: É o Token permanente gerado.
Enviar Mensagem Texto
Nessa opção de envio tratará apenas de conteúdo texto, consumindo um template do tipo Texto.
Requisição
procedure EnviarMensagemWhatsApp(IDRemetente, Token, Telefone, Template, Linguagem: String; Dados: OleVariant );
- IDRemente: Ao cadastrar o telefone da empresa é gerado uma ID essa ID que será usada para identificar quem é a empresa que esta enviado a mensagem.
- Token: Aconselhado usar o token que foi gerado através da função BuscarToken e não o token permanente.
- Telefone: Telefone para qual pretende enviar a mensagem 55 + DDD + Numero de Telefone.
- Template: Nome do template cadastrado na meta que será usado para a mensagem que deseja enviar.
- Linguagem: Linguagem na qual o template foi gerado. Ao cadastrar um template deve informar a linguagem do mesmo.
- Dados: É um vetor de parâmetros. Caso não possuir parâmetros enviar ‘ ‘.
Enviar Mensagem de Mídia
Opção criada para envio de Mídia através de links da internet. O Link também pode ser enviado usando a opção EnviarMensagemWhatsApp, a diferença é que nesse formato será enviado somente o link obrigando o recebedor a abrir para visualizar seu conteúdo. Utilizando a opção EnviarMensagemWhatsAppLink caso o arquivo seja uma imagem a mesma já será carregada, se for um vídeo o mesmo já fica com opção de player e etc...
Para usar essa opção o template tem de ser do tipo mídia.
Informação
- Para enviar imagens, a mesma tem de ser no formato jpg ou png. Exemplo: https://mobimg.b-cdn.net/pic/v2/gallery/preview/gory-pejzazh-priroda-46792.jpg
- Para enviar vídeos, o mesmo tem de ser no formato mp4 ou 3gp. Link do youtube por exemplo não são enviados usando a opção EnviarMensagemWhatsAppLink, somente a opção de EnviarMensagemWhatsApp.
Nessa opção, além do link do arquivo enviado pode também enviar as mesmas informações da opção de EnviarMensagemWhatsApp, que são mensagens fixas e mensagens com parâmetros.
Requisição
procedure EnviarMensagemWhatsAppLink(IDRemetente, Token, Telefone, Template, Linguagem, Link, TipoArquivo: String; Dados: OleVariant);
- IDRemente: Ao cadastrar o telefone da empresa é gerado uma ID essa ID que será usada para identificar quem é a empresa que esta enviado a mensagem.
- Token: Aconselhado usar o token que foi gerado através da função BuscarToken e não o token permanente.
- Telefone: Telefone para qual pretende enviar a mensagem 55 + DDD + Numero de Telefone.
- Template: Nome do template cadastrado na meta que será usado para a mensagem que deseja enviar.
- Linguagem: Linguagem na qual o template foi gerado. Ao cadastrar um template deve informar a linguagem do mesmo.
- Link: Link do arquivo. Deve ser respeitado o tópico de Informação importante.
- TipoArquivo: Se o arquivo enviado no link é do tipo “Image”, “vídeo”, “document”
- Dados: É um vetor de parâmetros. Caso não possuir parâmetros enviar ‘ ‘.
Upload de Arquivo
Para conseguir enviar um arquivo de mídia do tipo, imagem, vídeo, documento, áudio entre outros que esteja por exemplo saldo seu HD, Pen drive entre outros é necessário realizar o upload do arquivo para a Meta e com um código de ID retornado realizar o envio da mídia para os destinatários.
Requisição
function UploadArquivoWhatsApp(IDRemetente, Token, FileName, TipoArquivo: String;): String;
- IDRemente: Ao cadastrar o telefone da empresa é gerado uma ID essa ID que será usada para identificar quem é a empresa que esta enviado a mensagem.
- Token: Aconselhado usar o token que foi gerado através da função BuscarToken e não o token permanente.
- FileName: Caminho e nome do arquivo que deseja realizar o upload. Exemplo : C:\tek-System\temp\imagem.jpg.
- TipoArquivo: Se o arquivo enviado no FileName é do tipo “Image” (image/jpeg), “vídeo”(video/mp4), “document”(application/pdf)
Ao executar essa opção será retornado uma ID. Essa ID será usada para enviar o arquivo para os destinatários através da funcionalidade EnviarMensagemWhatsAppAnexo.
Deletar Arquivo
Quando realiza um Upload de um arquivo o mesmo fica disponível por 30 dias na Meta. Após esses 30 dias o mesmo e deletado de forma automática.
Quanto mais arquivos forem realizados Upload e mantido na Meta, atingindo o limite máximo, vai ficando lento o processo e enviar novos arquivos (Não foi especificado qual o limite máximo), para evitar esse problema, foi liberado opção de deletar o arquivo enviado.
Deletando os arquivos a empresa consegue gerenciar o processo.
Requisição
procedure DeletarArquivoWhatsApp(ID, Token: String);
- ID: Id gerada na função UploadArquivoWhatsApp
- Token: Aconselhado usar o token que foi gerado através da função BuscarToken e não o token permanente.
Enviar Mensagem com Anexo
Nessa opção, além do arquivo de Mídia enviado pode também enviar as mesmas informações da opção de EnviarMensagemWhatsApp, que são mensagens fixas e mensagens com parâmetros
Opção criada para enviar arquivos na qual foi realizado UploadArquivoWhatsApp.
Formatos aceitos:
p/ Documentos: text/plain, application/pdf, application/vnd.ms-powerpoint, application/msword, application/vnd.ms-excel, application/vnd.openxmlformats-officedocument.wordprocessingml.document, application/vnd.openxmlformats-officedocument.presentationml.presentation, application/vnd.openxmlformats-officedocument.spreadsheetml.sheet p/ Imagem: image/jpeg e image/png p/ Audio: audio/aac, audio/mp4, audio/mpeg, audio/amr p/ Videos: video/mp4 e video/3gp
O tamanho máximo de arquivo de mídia:
Audio : 16MB Document : 100MB Image : 5MB Video: 16MB
Requisição
procedure EnviarMensagemWhatsAppAnexo(IDRemetente, Token, Telefone, Template, Linguagem, ID, DescricaoArquivo, TipoArquivo: String; Dados: OleVariant );
- IDRemente: Ao cadastrar o telefone da empresa é gerado uma ID essa ID que será usada para identificar quem é a empresa que esta enviado a mensagem.
- Token: Aconselhado usar o token que foi gerado através da função BuscarToken e não o token permanente.
- Telefone: Telefone para qual pretende enviar a mensagem 55 + DDD + Numero de Telefone.
- Template: Nome do template cadastrado na meta que será usado para a mensagem que deseja enviar.
- Linguagem: Linguagem na qual o template foi gerado. Ao cadastrar um template deve informar a linguagem do mesmo.
- ID: Id gerada na função UploadArquivoWhatsApp
- DescricaoArquivo: Nome do arquivo que esta sendo enviado.
- TipoArquivo: Se o arquivo enviado é do tipo “Image”, “video”, “document”
- Dados: É um vetor de parâmetros. Caso não possuir parâmetros enviar ‘ ‘.
Exemplo de Uso Prático no Sistema
Ao gatilho ao cadastrar ou trocar status de um pedido de venda, será enviado mensagem ao cliente
unit uDocumento_Fatura_AfterUpdServer;
uses TEK_INTEGRACAO_WHATSAPP;
Const
Client_ID = 'ID do App';
Client_Secret = 'Cliente Secreto do APP';
IDRemetente = 'Informar ID do Remetente correspondente ao Telefone cadastrado no App';
Token_Permanente = 'Infomar Token Permanente';
Template = 'Nome do Template cadastrado na Meta';
Linguagem = 'Liguagem do Template. Exemplo: pt_br';
Link = 'Link de uma imagem da internet';
procedure Main;
var
Telefone, NumeroTelefone, TokenAcesso, ID, Documento, Valor, DescricaoArquivo, CaminhoArquivo: String;
begin
if (UpdateKind = ukInsert) and (ClassOwner = 'TSMCadPedidoVenda') and (NewValue('STATUS_DOCFAT') <> OldValue('STATUS_DOCFAT')) then
begin
Documento := IntToStr(Value('CODIGO_DOCFAT'));
NovoStatus := Value('DESCRICAO_STATUS');
CaminhoArquivo := 'C:\Tek-System\Temp\nome do arquio.pdf';
DescricaoArquivo := ExtractFileName(CaminhoArquivo);
// Pegar o número de celular
NumeroTelefone := ExecuteScalar(
'select first 1 PESSOA_TELEFONE.TELEFONE_PESSOA_TEL TELEFONE '+#13+
'from PESSOA_TELEFONE '+#13+
'where PESSOA_TELEFONE.PESSOA_PESSOA_TEL = ' + IntToStr(Value('CLIENTE_DOCFAT')) + ' and '+#13+
' PESSOA_TELEFONE.TIPOTELEFONE_PESSOA_TEL = ‘C‘ '+#13+
'order by PESSOA_TELEFONE.TELEFONEPADRAO_PESSOA_TEL desc');
Telefone := '55'+ SoNumero(NumeroTelefone);
if Length(Telefone) < 12 then
Exit;
try
TokenAcesso:= BuscarToken(Client_ID, Client_Secret, Token_Permanente);
{Opção 1: Template sem paramentros}
// EnviarMensagemWhatsApp(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, VarArrayOf([‘ ‘]));
{Opção 2: Template com um paramentro}
// EnviarMensagemWhatsApp(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, VarArrayOf([Documento]));
{Opção 3: Template com um ou mais paramentros }
// EnviarMensagemWhatsApp(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, VarArrayOf([Documento, NovoStatus]));
{Opção 4: Enviando link com templates sem paramentros }
// EnviarMensagemWhatsAppLink(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, Link, 'image', VarArrayOf([‘ ‘]));
{Opção 5: Enviando link com templates com um ou mais paramentros }
// EnviarMensagemWhatsAppLink(IDRemetente, Token, Telefone, Template, Linguagem, Link, 'image', VarArrayOf([Documento, NovoStatus]));
{Opção 6: Realizando o Upload de um arquivo, Enviando o arquivo com templates sem paramentros e Deletando arquivo enviado }
// ID := UploadArquivoWhatsApp(IDRemetente, TokenAcesso, 'C:\Tek-System\Temp\nome do arquio.jpg', 'image/jpeg');
// EnviarMensagemWhatsAppAnexo(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, ID, DescricaoArquivo, 'image', VarArrayOf([‘ ‘]));
// DeletarArquivoWhatsApp(ID, Token);
{Opção 7: Realizando o Upload de um arquivo, Enviando o arquivo com templates com um ou mais paramentros e Deletando arquivo enviado }
// ID := UploadArquivoWhatsApp(IDRemetente, TokenAcesso, CaminhoArquivo, 'application/pdf');
// EnviarMensagemWhatsAppAnexo(IDRemetente, TokenAcesso, Telefone, Template, Linguagem, ID, DescricaoArquivo, 'document', VarArrayOf([Documento, NovoStatus]));
// DeletarArquivoWhatsApp(ID, Token);
except
on Ex: Exception do
EnviarMensagemInterna('Nome do Usuario', 'Erro ao enviar Mensagem via WhatsApp', 'O erro ocorreu ao enviar o Pedido: '+ Documento + #13+ Ex.Message);
// EnviarEMail('email do usuario','Erro ao enviar Mensagem via WhatsApp', 'O erro ocorreu ao enviar o Pedido: '+ Documento + #13+ Ex.Message);
end;
end;
end;
end.