MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


+3
Roberto Costa
Alvaro Teixeira
=>Nois
7 participantes

    Enviar Mensagens Via WhatsApp

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


    Respeito às regras : Respeito às Regras 100%

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

    whatsapp - Enviar Mensagens Via WhatsApp Empty Enviar Mensagens Via WhatsApp

    Mensagem  =>Nois 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

    tonosat, bobcavalcante2, Dalazen, haton e LedahBR gostam desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 22/8/2018, 12:22

    Olá Nois,

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

    cheers

    bobcavalcante2 e LedahBR gostam desta mensagem

    avatar
    Roberto Costa
    Novato
    Novato


    Respeito às regras : 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 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.

    bobcavalcante2 e LedahBR gostam desta mensagem

    avatar
    BelémPará
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

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

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

    bobcavalcante2 e LedahBR gostam desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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.

    bobcavalcante2 gosta desta mensagem

    avatar
    rogerio2020
    Novato
    Novato


    Respeito às regras : 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 18/7/2019, 22:21

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

    bobcavalcante2 gosta desta mensagem

    avatar
    rogerio2020
    Novato
    Novato


    Respeito às regras : 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 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

    bobcavalcante2 gosta desta mensagem

    avatar
    CEvangelista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  CEvangelista 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.

    MarcosXP e bobcavalcante2 gostam desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/11/2024, 01:49