MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 838
    Registrado : 09/11/2012

    whatsapp - 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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    whatsapp - 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

    whatsapp - 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.
    avatar
    BelémPará
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 03/06/2019

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  BelémPará em 3/6/2019, 18:02

    também tenho que mandar o Enter
    Consegue ajudar? seria legal a gente poder conversar.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  ahteixeira em 4/6/2019, 10:39

    Regras do Fórum

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.
    avatar
    rogerio2020
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 02/04/2011

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  rogerio2020 em 18/7/2019, 22:21

    como relatado acima, não envia. Tem que clicar no navegador normalmente para enviar.
    avatar
    rogerio2020
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 02/04/2011

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  rogerio2020 em 18/7/2019, 22:25

    Meu conhecimento de access e programação é quase nulo.

    Quando consegui inserir o botão com o código, abria duas janela no navegador e ainda avançava o registro no formulário.

    Ai eu apaguei algumas coisas do código e deu certo.

    Ficou assim




    Private Sub Comando593_Click()
    Call Enviar
    End Sub

    Sub Enviar()

    Dim textEnviar, Contatcs As String

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

    textEnviar = Replace("MEU TEXTO QUE ESCOLHI LIVREMENTE", "", "%20")

    'verifico se minha caixa de texto esta vazia

    If Me.Telefone = "" 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.Telefone

    'abre o navegador e cria a mensagem

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

    End If
    End Sub

    Public Sub Fazer(ByVal Segundos As Single)
    'By JPaulo ®? Maximo Access

    End Sub
    avatar
    CEvangelista
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 12
    Registrado : 09/10/2017

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  CEvangelista em 28/3/2020, 10:33

    Muito obrigado!
    Gostei muito pela contribuição.

    Apliquei e funciona.

    Agora, quero saber se existe uma forma de receber as mensagens via WhatSapp dentro do Access.
    desde já agradeço.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    whatsapp - Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  DamascenoJr. em 28/3/2020, 12:35

    Constantino, veja as regras do fórum. Elas são importantes para a organização da casa.

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 9/8/2020, 12:09