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

    whatsapp - abertura de nova página

    avatar
    sergio de paula
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 19/04/2020

    whatsapp - abertura de nova página Empty whatsapp - abertura de nova página

    Mensagem  sergio de paula 6/6/2021, 22:12

    Preciso enviar mensagens pelo whatsapp a partir de uma lista do meu banco de dados. Já utilizo as rotinas indicadas neste forum, porém tem uma questão que não consigo resolver e gostaria de uma ajuda : quando envio uma mensagem abre uma nova página do whatsapp, não utilizando a aba já aberta. tem alguma maneira de evitar isso ?

    código usado :

    Function zap(tel, texto)

    On Error GoTo 1
    tel = "+55 " & tel
      Application.FollowHyperlink "https://web.whatsapp.com/send?phone=" & tel & "&text=" & texto

    For n = 1 To 25000: Next n

    Exit Function
    1:
    MsgBox "computador sem internet"
    Exit Function
    End Function


    Última edição por sergio de paula em 6/6/2021, 22:13, editado 1 vez(es) (Motivo da edição : retirada de comentários do programa)

      Data/hora atual: 25/7/2021, 03:00