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 : 782
    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 : 6195
    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.
    avatar
    BelémPará
    Novato
    Novato

    Respeito às Regras 100%

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

    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 : 6195
    Registrado : 15/03/2013

    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

    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

    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

    Conteúdo patrocinado

    Enviar Mensagens Via WhatsApp Empty Re: Enviar Mensagens Via WhatsApp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 03:38