MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Enviar Mensagens Via WhatsApp

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 777
    Registrado : 09/11/2012

    Enviar Mensagens Via WhatsApp Empty Enviar Mensagens Via WhatsApp

    Mensagem  =>Nois em 14/8/2018, 02:52

    Boa Noite!! cheers

    Após pesquisar muito e fazer muitos testes... consegui adaptar em meu sistema para enviar mensagens através do whatsapp web Exclamation

    deixo essa contribuição aqui a todos creio que seja de grande valia  alien

    Agradeço ao JP pela função para dar pause e o Ahteixeira pelo Replace!



    Em um botão invoco uma sub

    Código:
    Private Sub cmdEnviaZap_Click()

    Call Enviar

    End Sub


    Sub

    Código:
    Sub Enviar()

    Dim  textEnviar, Contatcs  As String

    'texto ao ser enviado, os espaços são substituidos por %20

    textEnviar = Replace("OLÁ, ISSO É UM TESTE", "", "%20")

    'verifico se minha caixa de texto esta vazia

    If Me.txtCaixa= "" Then

        MsgBox "Informe o Endereço da Coleta!!", VBINFORMATION, "ERROR"
        Exit Sub
        
    Else

    'insiro o nº de celular que deve ser composto por 55 que é o pais + DDD da cidade sem o zero + o nº celular sem traço

        Contatcs = "55" & Me.txtContato

    'abre o navegador e cria a mensagem

        Application.FollowHyperlink "https://api.whatsapp.com/send?phone=" & Contatcs & "&text=" & textEnviar

    'pause de 3 segundos
        
        Fazer (3)

    'tab e dois enter para enviar  

        Call SendKeys("{TAB}", True)
        Call SendKeys("{TAB}", True)
        Call SendKeys("{ENTER}", True)

    End If

    função de pause JP

    Código:

    Public Sub Fazer(ByVal Segundos As Single)
    'By JPaulo ®️ Maximo Access
    Call Sleep(Int(Segundos * 1000#))
    End Sub


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5935
    Registrado : 15/03/2013

    Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  ahteixeira em 22/8/2018, 12:22

    Olá Nois,

    Não testei, no entanto o fórum agradece!

    cheers
    avatar
    Roberto Costa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 19/12/2011

    Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  Roberto Costa em 13/5/2019, 20:59

    Boa tarde, consegui chegar até o envio, porém ainda tenho que dar o ENTER final para enviar a mensagem.

    Conteúdo patrocinado

    Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2019, 06:19