Enviar WhatsApp com Imagem Excel

Neste artigo você aprenderá como enviar WhatsApp com imagens pelo Excel com VBA, planilha pronta e gratuita.

Como usar WhatsApp, WhatsApp Web no Computador

Primeiro você precisa ativar o whatsApp Web no seu computador.

Para isso abra o endereço: https://web.whatsapp.com/

Este endereço irá abrir um aplicativo do whatsapp no seu computador e você deve ler o qrcode no seu celular e permitir o acesso do whatsApp do aplicativo no seu computador.

Uma vez feito isso o whatsapp irá funcionar no seu computador e ele estará pronto para usar esta planilha.

Planliha de Mensagens WhatsApp

A planliha possui uma tabela aonde temos o nome do contato e também a mensagem que será enviada em cada uma das linhas.

O nome do contato deve estar cadastrado no whatsApp e você deveria digitar a mensagem na coluna mensagem.

Na planilha você tem também a imagem que será inclusa nesta área. No nosso exemplo colocamos um gráfico, mas poderia ser qualquer outra imagem.

Código VBA para Envio da Mensagem WhatsApp com VBA

Para o envio das mensagens usando VBA no Excel usamos o método SendKeys do VBA.

Este método simula o pressionamento do teclado, então o procedimento que seria feito com tab, enter, texto, será feito com o uso destes métodos.

Inclusive este mesmo método pode ser usado para automatizar outras tarefas em outros sites ou até programas.

No código é aberto primeiro o navegador google chrome usando o procedimento Shell do VBA.

Abaixo o código utilizado:

Public Sub lsEnviarWhats()
    Dim lUltimaLinha    As Long
    Dim lContato        As String
    Dim lMensagem       As String

    'Abre o Whatsapp
    Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
    
    Application.Wait Now + TimeValue("00:00:15")
    
    lUltimaLinha = WhatsApp.Cells(WhatsApp.Rows.Count, 2).End(xlUp).Row
    
    'Faz o loop entre as linhas da tabela
    For i = 7 To lUltimaLinha
        If WhatsApp.Cells(i, 4).Value = "" Then
            lContato = WhatsApp.Cells(i, 2).Value
            lMensagem = WhatsApp.Cells(i, 3).Value
            
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lContato
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lMensagem
            
            'teste
            ActiveSheet.Range("Imagem01").CopyPicture , xlBitmap
            Application.Wait (Now() + TimeValue("00:00:03"))
            SendKeys ("^v")
            Application.Wait (Now() + TimeValue("00:00:01"))
            SendKeys "~", True
            
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            
            WhatsApp.Cells(i, 4).Value = Now
        End If
    Next i
    
    MsgBox "O envio foi concluído!"
        
End Sub

Perceba também que no código VBA temos o uso de Application.Wait.

Este código faz com que o código atrase a execução da próxima linha na quantidade de tempo definido.