MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Enviar Imagem pelo Whatsapp

    avatar
    jcpessoa14
    Novato
    Novato

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

    Respeito às Regras 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  jcpessoa14 em 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 100%

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

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Alexandre Neves em 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

    Conteúdo patrocinado

    Enviar Imagem pelo Whatsapp Empty Re: Enviar Imagem pelo Whatsapp

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/9/2019, 06:31