CÓDIGOS DA MACRO PARA COPIAR: Sub EnviarMensagem() On Error GoTo Erro Dim Plan As Worksheet Dim Linha As Double, ColContato As Double, ColMsg As Double Dim Navegador As String, WhatsAppWeb As String Dim Contato As String, Mensagem As String Set Plan = Planilha1 'Alterar Linha = 4 'Alterar ColContato = 2 'Alterar ColMsg = 3 'Alterar Navegador = "LINK NAVEGADOR WEB" 'Alterar WhatsAppWeb = " web.whatsapp.com/" 'Cuidar espaço Shell Navegador & WhatsAppWeb Application.Wait VBA.Now + VBA.TimeValue("00:00:30") 'Alterar With Plan
Loop Until .Cells(Linha + 1, ColContato).Value = Empty End With Call SendKeys("{NUMLOCK}", True) Set Plan = Nothing MsgBox "Enviado com sucesso!", vbInformation, "MENSAGEM" Exit Sub Erro: MsgBox "Erro!", vbCritical, "MENSAGEM" End Sub
Muito bom dia, Gostaria de saber? tenho formulário pronto de agendamento é possível incluir um botão de envio, utilizar este mesmo código , é necessário criar um novo formulário?
CÓDIGOS DA MACRO PARA COPIAR:
Sub EnviarMensagem()
On Error GoTo Erro
Dim Plan As Worksheet
Dim Linha As Double, ColContato As Double, ColMsg As Double
Dim Navegador As String, WhatsAppWeb As String
Dim Contato As String, Mensagem As String
Set Plan = Planilha1 'Alterar
Linha = 4 'Alterar
ColContato = 2 'Alterar
ColMsg = 3 'Alterar
Navegador = "LINK NAVEGADOR WEB" 'Alterar
WhatsAppWeb = " web.whatsapp.com/" 'Cuidar espaço
Shell Navegador & WhatsAppWeb
Application.Wait VBA.Now + VBA.TimeValue("00:00:30") 'Alterar
With Plan
Call SendKeys("{TAB}", True)
Do
Linha = Linha + 1
Contato = .Cells(Linha, ColContato).Text
Mensagem = .Cells(Linha, ColMsg).Value
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
With Application
.Wait VBA.Now + VBA.TimeValue("00:00:02")
Call SendKeys(Contato, True)
.Wait VBA.Now + VBA.TimeValue("00:00:02")
Call SendKeys("{ENTER}", True)
.Wait VBA.Now + VBA.TimeValue("00:00:02")
Call SendKeys(Mensagem, True)
.Wait VBA.Now + VBA.TimeValue("00:00:02")
Call SendKeys("{ENTER}", True)
.Wait VBA.Now + VBA.TimeValue("00:00:02")
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
Call SendKeys("+{TAB}", True)
End With
Loop Until .Cells(Linha + 1, ColContato).Value = Empty
End With
Call SendKeys("{NUMLOCK}", True)
Set Plan = Nothing
MsgBox "Enviado com sucesso!", vbInformation, "MENSAGEM"
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "MENSAGEM"
End Sub
SHOW DE BOLA!!!!! Estava me batendo aqui pra conseguir chegar nesse campo pesquisar!!! Meus parabéns pelo canal!!!!
Obrigado.
@@CanalSGP Existe alguma maneira de mandar uma imagem automatica?
Bom dia, infelizmente até o momento não sei de procedimento capaz de realizar esta tarefa.
@@CanalSGP Obrigado pela pronta reposta!
Parabéns show de bola 👏
Obrigado 👍
Show! de bola
Obrigado.
fantastico
Obrigado.
Muito bom dia, Gostaria de saber? tenho formulário pronto de agendamento é possível incluir um botão de envio, utilizar este mesmo código , é necessário criar um novo formulário?
Boa tarde, obrigado. Acredito que vai alterar no código as referências.
Bom dia!!! Show!!! Muito bom!!! Consigo incluir arquivo, pdf, foto e link?
Bom dia, esta macro envia apenas mensagens, não consegue anexar arquivos.
@@CanalSGP Entendi, muito obrigado!!! Parabéns!!!
Obrigado.
Ótima aula, porém, gostaria de saber se tem como enviar mensagem no WhatsApp pelo Google Sheets sem uso de hyperlink na célula?
Bom dia, até o momento não encontrei uma forma gratuita de ser feito, API paga sei que tem.
Ótimo vídeo 👏👏👏 É enviar mensagens do whatsapp por meio do Google Sheets também? Agradeço se enviar as instruções. Obrigado 🙂
Bom dia, obrigado. Até o momento não encontrei uma forma de fazer no Google planilhas de forma gratuita.
Será que fica muito difícil adaptar para ComboBox ?
Boa tarde, em combobox ficaria diferente, porque não precisa de loop para percorrer as linhas.
Entendi @@CanalSGP
Se eu não tiver o contato salvo como ele vai fazer ?
Bom dia, precisa já ter enviado pelo menos uma mensagem para o contato.
Não sei o misterio, aqui não deucerto ainda! Até enviou, mas para um grupo, mas não para os telefones da lista.
Bom dia, verifique se já enviou uma mensagem pelo menos para cada contato.
Já uso esta planilha a uns 2 anos na última atualização só é possível enviar a números salvos na agenda
Boa tarde, este vídeo foi postado a pouco tempo. Mas esta macro funciona somente se já tiver enviado uma mensagem para o contato.
@@CanalSGP enviou aleatóriamente, mas só envia uma mensagem para o primeiro grupo fixado.
Existe um esquema desse para enviar para números que não estão na agenda e essa seria a primeira mensagem?
ola, ele faz todo o comando,mas ao invés de escrever o texto, abre o microfone.
Bom dia, é o whatsApp web ou o aplicativo no computador.