Início
jcpessoa14 8/3/2019, 15:35Consigo 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:
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.
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
