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

    Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 11/01/2016

    Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter Empty Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter

    Mensagem  lpdias em 7/4/2020, 21:48

    Boa tarde!

    Através do repositório consegui um código muito legal que permite o envio de mensagens pelo whatsaap através do access.
    Consegui fazer mas encontrei algumas coisas que gostaria de arrumar mas precisarei da ajuda dos amigos do fórum.

    1- Ele vai pra web e solicita que eu tenha um whatsaap instalado.

    Sem problemas, mas se ele já estiver aberto, a mensagem não vai para a caixa. Gostaria de arrumar, pois hj em dia todos deixam ele aberto

    2- Preciso sempre dar o enter, não consigo de forma alguma que ele já o faça.

    Por último, gostaria de saber se alguém já conseguiu fazer de um jeito que a mensagem seja enviada para duas pessoas ou um determinado grupo.

    Agradeço.

    Abaixo o código que estou usando.


    Private Sub cmdEnviaZap_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("ARLINDO E ANDERSON, TEM PEDIDO LANÇADO PARA SEPARAÇÃO DO ESTOQUE", "", "%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

    'pause de 3 segundos

    Fazer (3)

    ' tb e dois enter para enviar

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

    End If
    End Sub

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

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter Empty Re: Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter

    Mensagem  DamascenoJr. em 9/4/2020, 00:20

    Veja esse trecho

    Código:
    ' tb e dois enter para enviar

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

    Não vejo 1 tab e 2 enter. Na verdade, vejo 2 tab e 1 enter. Talvez seja por aqui que você deva procurar a solução. Você pode simular quantos pressionamentos quiser. Veja 5 enter seguidos.

    Código:
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)
    Call SendKeys("{ENTER}", True)

    Basta simular os pressionamentos que julgar necessários.


    .................................................................................
    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.
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 11/01/2016

    Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter Empty Re: Envio de Mensagens pelo Whatsaap sem ter que apertar o Enter

    Mensagem  lpdias em 9/4/2020, 12:02

    Bom dia Damasceno

    Dei uma olhada por cima mas ainda estou apanhando.
    Assim que conseguir algo retorno por aqui.
    Valeu pela ajuda

      Data/hora atual: 19/9/2020, 11:36