Enviar Imagem pelo Whatsapp

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

Boa noite,
Tente

Código:

SendKeys String:="^c"
DoEvents
SendKeys String:="^v"

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

Prezado Alexandre,

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

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

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

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

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?

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

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

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.

Preciso enviar um arquivo pdf via whatzap web

Também preciso!!!