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


2 participantes

    Converter Codigo do Excel envio mensagem pelo WhastZapp

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 573
    Registrado : 30/08/2010

    Converter Codigo do Excel envio mensagem pelo WhastZapp Empty Converter Codigo do Excel envio mensagem pelo WhastZapp

    Mensagem  NADIRONUNES 31/5/2023, 19:01

    boa tarde a todos
    fiz um busca na internet, envio de arquivo pelo whastzapp e achei esse codigo do excel tem como inverter pra usar no access

    Código:
    Public Sub lsEnviarWhatsApp()
        Dim lUltimaLinha    As Long
        Dim i              As Long
        Dim lContato        As String
        Dim lMensagem      As String
       
        'Abre o WhatsApp
        Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
       
        Application.Wait Now + TimeValue("00:00:15")
       
        lUltimaLinha = WhatsApp.Cells(WhatsApp.Rows.Count, 2).End(xlUp).Row
       
        'Faz o loop pelas linhas da tabela
        For i = 7 To lUltimaLinha
            If WhatsApp.Cells(i, 4).Value = "" Then
                lContato = WhatsApp.Cells(i, 2).Value
                lMensagem = WhatsApp.Cells(i, 3).Value
               
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                Application.Wait Now + TimeValue("00:00:02")
                SendKeys lContato
                Application.Wait Now + TimeValue("00:00:02")
                SendKeys "~"
                Application.Wait Now + TimeValue("00:00:02")
                SendKeys lMensagem
                SendKeys "~"
               
                'Arquivo
                SendKeys ("+{Tab}")
                SendKeys "~"
                Application.Wait Now + TimeValue("00:00:0005")
                SendKeys ("{UP}")
                SendKeys ("{UP}")
                SendKeys ("{UP}")
                SendKeys ("{UP}")
                SendKeys "~"
                Application.Wait Now + TimeValue("00:00:0005")
                Application.SendKeys WhatsApp.Range("arquivoenvio").Value
                SendKeys "~"
                Application.Wait Now + TimeValue("00:00:0005")
                SendKeys "~"
               
                'Imagem
                WhatsApp.Range("Imagem01").CopyPicture , xlBitmap
                Application.Wait Now + TimeValue("00:00:03")
                SendKeys "^v"
                Application.Wait Now + TimeValue("00:00:01")
                SendKeys "~"
                Application.Wait Now + TimeValue("00:00:02")
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
               
                WhatsApp.Cells(i, 4).Value = Now
            End If
        Next i
       
        MsgBox "Mensagens enviadas!"
       
    End Sub
     
    Sub SelecionarArquivo()
        Dim arquivo As Variant
        arquivo = Application.GetOpenFilename()
        If arquivo <> False Then
            WhatsApp.Range("arquivoenvio").Value = arquivo
        End If
    End Sub

    Jkamaroski gosta desta mensagem

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 573
    Registrado : 30/08/2010

    Converter Codigo do Excel envio mensagem pelo WhastZapp Empty Re: Converter Codigo do Excel envio mensagem pelo WhastZapp

    Mensagem  NADIRONUNES 5/6/2023, 15:19

    Alguem
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Converter Codigo do Excel envio mensagem pelo WhastZapp Empty Re: Converter Codigo do Excel envio mensagem pelo WhastZapp

    Mensagem  DamascenoJr. 3/7/2023, 02:24

    NADIRONUNES, tudo tranquilo?

    Nas salas de repositório tem exemplo pronto de envio de mensagem pelo whatsapp usando acccess. Talvez ajude.

    PS: infelizmente é um método arriscado pois assim como nesse código do excel, o do access também executa uma sequencia de teclas para que a finalidade seja alcançada. Qualquer carregamento mal feito é erro na certa. Talvez o serviço pushbullet seja melhor se o objeto seja só mensagem de texto.


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


    Converter Codigo do Excel envio mensagem pelo WhastZapp Empty Re: Converter Codigo do Excel envio mensagem pelo WhastZapp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/7/2024, 12:12