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

    Enviar Imagem pelo Whatsapp

    avatar
    jcpessoa14
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/04/2013

    Enviar Imagem pelo Whatsapp Empty Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 8/3/2019, 15:35

    Consigo fazer um formulário que envie através do MS ACCESS, mensagem de texto pelo Whatsapp. Porém, quando tento enviar foto não consigo. Já pesquisei em todo fórum e não obtive respostas.

    A questão central é no VBA, copiar a imagem que está em um determinado campo e depois enviar através do comando:

    Call SendKeys("^v", True)
    Call SendKeys("~", True)


    Segue abaixo as linhas:

    Código:
    Private Sub CmdEnviar_Click()
    If Caixa_Mensagem = "" Then
    MsgBox "Digite a Mensagem a ser envida!", 64, "ERRO DE PROCEDIMENTO"
    Exit Sub
    End If


    If MsgBox("Deseja enviar mensagem de texto pelo Whatsapp?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

    MsgBox ("ATENÇÃO" & Chr(13) & "Antes de apertar OK, verifique se o Whatsapp Web esteja aberto" & Chr(13) & "Caso ainda esteja aberto é necessário que você primeiro feche o aplicativo WHATSAPP WEB" & Chr(13) & "Obrigado!")


    Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"

    Else
    GoTo Saida
    End If

    Pausa (15)
    linha = 0
    Do Until IsNull(Nome)


    If Contato = "" Then
    GoTo Proximo
    End If

    Pausa (3)
    Call SendKeys("{TAB}", True)
    Call SendKeys(Contato, True)
    Call SendKeys("~", True)

    Pausa (5)

    Call SendKeys(Caixa_Mensagem, True)
    Call SendKeys("~", True)


    Pausa (3)

    '************** Incluir linhasde comando  para copiar a imagem que esteja no formulário


    Call SendKeys("^v", True)
    Call SendKeys("~", True)

    Proximo:
    DoCmd.GoToRecord , , acNext

    'If MsgBox("Deseja sair do LOOP?", vbYesNo, "Saida") = vbYes Then
    'Exit Sub
    'End If


    Loop

    Saida:
       Exit Sub


    End Sub


    PS: As tentativas são referentes as diversas formas que tentei para copiar virtualmente a imagem, mas todos deram algum tipo de erro.

    Já tentei de várias formas de copiar a imagem que está em um determinado campo do formulário.

    Código:

    '***** TENTATIVA 1
    'Call SendKeys(Imagem12, True)

    '***** TENTATIVA 2

    'Me.ImagePath.SetFocus
    'Me.ImagePath.SelStart
    'Me!ImagePath.SelLength = Len(Me.ImagePath)
    'DoCmd.RunCommand acCmdCopy

    '***** TENTATIVA 3
    'Me![ImagePath].Visible = True
    'Me![ImagePath].SetFocus
    'Me![ImagePath].Text = fileName
    'Me.ImagePath.SelStart = 0
    'Me!ImagePath.SelLength = Len(Me.ImagePath)
    'DoCmd.RunCommand acCmdCopy


    '***** TENTATIVA 4
    'Me.Imagem12.Visible = True
    'Me.Imagem12.SetFocus
    'DoCmd.RunCommand acCmdCopy
    'Me.Caixa_Mensagem.SetFocus 'outra caixa de texto
    'Me.Imagem12.Visible = False

               'Me![ImagePath].Visible = True
               'Me![ImagePath].SetFocus
               'Me![ImagePath].Text = fileName
               'DoCmd.RunCommand acCmdCopy
               'Me![Caixa_Mensagem].SetFocus
               'Me![ImagePath].Visible = False
               
               
    '***** TENTATIVA 5
    'Me.Imagem12.SetFocus
    'DoCmd.RunCommand acCmdCopy

    tonosat gosta desta mensagem

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves 9/3/2019, 20:26

    Boa noite,
    Tente
    Código:
    SendKeys String:="^c"
    DoEvents
    SendKeys String:="^v"


    .................................................................................
    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves 9/3/2019, 20:32

    Boa noite,
    Eliminei-lhe o tema que abriu repetindo este. Leia e respeite as regras do fórum, de forma a mantermos o fórum organizado, a bem de todos


    .................................................................................
    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
    avatar
    jcpessoa14
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/04/2013

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 10/3/2019, 01:23

    Prezado Alexandre,

    Não entendi direito.
    Primeiro não é necessário informar qual o objeto (campo) a ser copiado ("^C") ?

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves 10/3/2019, 08:36

    Bom dia
    Foi apenas uma sugestão, nunca trabalhei com Whatsapp
    Aguarde até algum membro poder ajudar


    .................................................................................
    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
    avatar
    jcpessoa14
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/04/2013

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 10/3/2019, 21:52

    Já copiei essas linhas, fiz algumas modificações, mais ainda não consegui.

    Acredito que seja necessário primeiro deixar a imagem em evidência, para em seguida fazer a copia dela (^c)

    Quando eu incluir aquelas instruções do Excel, imaginei que algumas pessoas tem mais facilidade e conseguiria a partir daquela referência, fazer a conversão para VBA Access.

    Fico no aguardo dos demais colegas
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves 10/3/2019, 22:24

    Boa noite
    Se será mais voltado no Excel, procure num fórum mais voltado para o Excel e, se der certo, informe o código VBA, pois será útil no Access


    .................................................................................
    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
    avatar
    jcpessoa14
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 08/04/2013

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 11/3/2019, 13:50

    Eu consigo fazer no Excel, porém, necessito que seja automático pelo Access.

    Abaixo está o código para Excel, veja que ele faz referência a Planilha 1 e a imagem (Picture 6) para ficarem em evidência, como está abaixo

    Código:
    Fazer (5000)
    With Plan1
    ActiveSheet.Shapes.Range(Array("Picture 6")).Select
    Selection.Copy
    End With

    Call SendKeys("^v", True)

    Porém, preciso converter esse código de VBA Excel para Access. No sistema de mensagem que estou elaborando em Access, quase tudo funciona, exceto mover o foco para a imagem e em seguida copiar a imagem através de Call SendKeys("^c", True), para depois colar com Call SendKeys("^v", True) e enviar pelo Whatsapp.

    Quem pode me ajudar?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves 11/3/2019, 16:49

    Boa tarde
    Não sei como trabalhar no Access com a imagem embebida no campo
    Sugiro que trabalhe com Access e armazene a imagem no Excel.
    No Access, chama o ficheiro Excel e envia por código
    Se servir para o seu caso, trabalhamos esse código depois


    .................................................................................
    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
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  NADIRONUNES 26/4/2021, 22:00

    boa noite conseguiram anexar a imagem ou arquivo no whast zap web? pois tambem preciso
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 03/03/2015

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Almeidar 27/4/2021, 15:55

    Boa tarde amigo, desculpa mas não compreendi sua ideia por não entender muito como programar. Se você puder me ajudar mesmo que seja desta maneira serei grato.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  NADIRONUNES 27/4/2021, 15:57

    Preciso enviar um arquivo pdf via whatzap web

      Data/hora atual: 16/6/2021, 16:04