Atualmente o WhastApp é uma excelente ferramenta para que você possa divulgar os seus serviços, em face disto, estarei ensinando como exportar seus contatos tanto para seu celular Android ou IOS através de uma planilha de Excel.

Transformando tabelas em arquivo VCARD.

Abra o Excel

Caso não tenha habilitado ative o modo desenvolvedor .

Insira os dados conforme abaixo “Não precisa inserir a primeira linha somente os dados dos contatos “.

2Q== - Como Importar Contatos e Enviar Mensagem Pelo WhatsApp 100% Grátis usando Excel

Navegue até a guia desenvolvedor e clique em visual Basic

Clique no menu inserir modulo e insira o código abaixo

Private Sub Create_VCF()

‘Declarando variave

    Dim FileNum As Integer

    Dim iRow As Double

    iRow = 2

    FileNum = FreeFile

‘IMPORTANTE : local da saída do arquivo

    OutFilePath = "C:\nome do arquivo .VCF"

    Open OutFilePath For Output As FileNum

 

    'Loop de criação do vcard

    While VBA.Trim(Sheets("Planilha1").Cells(iRow, 1)) <> ""

        LName = VBA.Trim(Sheets("Planilha1").Cells(iRow, 1))

        FName = VBA.Trim(Sheets("Planilha1").Cells(iRow, 2))

        PhNum = VBA.Trim(Sheets("Planilha1").Cells(iRow, 3))

 

        Print #FileNum, "BEGIN:VCARD"

        Print #FileNum, "VERSION:3.0"

        Print #FileNum, "N:" & LName & ";" & FName & ";;;"

        Print #FileNum, "FN:" & LName & " " & FName

        Print #FileNum, "TEL;TYPE=CELL;TYPE=PREF:" & PhNum

        Print #FileNum, "END:VCARD"

        iRow = iRow + 1

    Wend

 

    ‘Fim do Arquivo

    Close #FileNum

    MsgBox "Os Contatos Foram Salvos: " & OutFilePath & "

End Sub

Importando os contatos para o celular IOS ou Android

1° Enviando contatos para o telefone:

Pegue o Arquivo no formato Vcard espelhe o Whasapp no PC e enviei para se celular utilizando outro aparelho.

No IOS você pode importar o arquivo através do próprio site do ICLOUD.

No Android você pode importar o arquivo através da sua conta gmail.

2° Enviando WhastApp individual para cada contato.

Dica: Cuidado com o tempo de envio entre as mensagens, cuidado com a quantidade de mensagem para contatos não recíprocos, ou seja, contatos que não possuem seu número cadastrado, neste caso envie com moderação para evitar bloqueios e banimentos devido a política de spam do WhatsApp.

Abra o Excel

Navegue na guia desenvolvedor, meu inserir clique em TextBox.

Na guia desenvolvedor clique em Visual Basic

Dentro de visual Basic clique no menu Inserir – Modulo e insira o código abaixo:

Sub Enviar()

'não pode fazer clicks ou mudar o foco do mause nem pressionar teclas
Dim text As String
Dim Contato As String

text = Sheets(1).TextBox1

If text = "" Then
MsgBox "Digite a Mensagem a ser envida!", 64, "ERRO DE PROCEDIMENTO"
Exit Sub
End If

ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
'Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & "
 https://web.whatsapp.com/"

'Tempo de Execução 15 segundos


Fazer (15000) 
 
linha = 8  ' Linha do inicio dos contatos 
Do Until Sheets(1).Cells(linha, 1) = ""

Fazer (2000)
Contato = Cells(linha, 1)

If Contato = "" Then
MsgBox "Preencha os endereços de contatos!", 64, "Insira pelo menos um Contato"
Exit Sub
End If

Fazer (3000)
 Call SendKeys("{TAB}", True)
 Call SendKeys(Contato, True)
Call SendKeys("~", True)

Fazer (8000)
Call SendKeys(text, True)
'SendKeys "{ENTER}", True
Call SendKeys("~", True)

linha = linha + 1

Loop

End Sub

Function Fazer(ByVal Acao As Double)

Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)

End Function

Insira os nomes do a partir da Coluna A Linha 8 e atribua a função Enviar a um botão.

Após executar estes passos, insira o texto no  TextBox e clicar no botão enviar.

Para baixar o arquivo de Excel já pronto clique aqui.