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

    Anexar um arquivo no WhatsApp pelo VBA Access

    avatar
    tolomeirf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 21/04/2020

    Anexar um arquivo no WhatsApp pelo VBA Access Empty Anexar um arquivo no WhatsApp pelo VBA Access

    Mensagem  tolomeirf em 21/4/2020, 21:34

    Oi.

    Alguem tem uma rotina de como Anexar um arquivo no WhatsApp pelo VBA Access

    Enviar a mensagem, copiar e colar ja consegui


    'Rotina do WhatsApp
    If vEnviaMSg = True And vContato <> "" Then
    Application.FollowHyperlink "https://web.whatsapp.com/"
    For i = 1 To 2
    DoEvents
    xlw.Application.Range("A1:F" & Lin).Select ' seleciona toda informacao para enviar no whats
    xlw.Application.Selection.Copy
    'Application.FollowHyperlink "https://web.whatsapp.com/"
    DoEvents
    Sleep 18000 ' 18s

    SendKeys "{TAB}", True
    SendKeys IIf(i = 1, vContato, vContato2), True
    SendKeys "~", True
    Sleep 12000

    SendKeys "Bom Dia", True
    SendKeys "~", True

    Sleep 10000
    SendKeys "Segue os Vencidos", True
    SendKeys "^v", True
    Sleep 10000
    SendKeys "~", True

    SendKeys "{NUMLOCK}"
    If vContato2 = "" Then Exit For
    Next i


    No aguardo e Agradeco


    Última edição por tolomeirf em 22/4/2020, 19:49, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    Anexar um arquivo no WhatsApp pelo VBA Access Empty Re: Anexar um arquivo no WhatsApp pelo VBA Access

    Mensagem  Alexandre Neves em 22/4/2020, 09:39

    Bom dia e bem-vindo ao fórum
    Leia as regras para melhor usufruir do fórum
    Disponibilize o que tem. Será mais fácil adaptar do que começar do zero


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 2/12/2020, 12:43