Menu relatório com anexo para WhastApp

Olá pessoal, uso a função abaixo que é acionada no relatório no clique do botão direito no mouse. Gostaria de adicionar uma recurso que enviasse o relatório em PDF para o WhatsApp do cliente, conforme o número dele cadastrado na tabela de cliente. Será que isso é possível?

Código:

Sub fncMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl

' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("AtalhoRelatorio", msoBarPopup, False, True)

With cmbRightClick

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Impressão Rápida"

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Selecionar Impressora"

' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Configurar Página"

' Add the Mail Recipient (as Attachment)... command.
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Enviar como anexo no e-mail"

' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Salvar como PDF/XPS"

'Exportar para o Excel
Set cmbControl = .Controls.Add(msoControlButton, 263, , , True)

cmbControl.OnAction = "=fncExporta()"
cmbControl.Caption = "Exportar para Excel"


' Add the Close command.
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Fechar Relatório"





End With

Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub

Gilberlanio

Veja se isso te ajuda:

whatsmate.github.io/2019-12-02-send-whatsapp-pdf-vba/

{ }'s

Balem

Obrigado pela força Noobezinho, vou fazer uns testes e retorno com o resultado

boas...

dando um pitaco a mais afim de aumentar conhecimento.

Veja esse link.

maisgeek.com/como-criar-um-atalho-ou-item-de-menu-de-contexto-para-praticamente-qualquer-configuracao-do-windows/

como faço pra usar seu exemplo gilberlanio fncMenu()

Olá Gilberlanio

vc. conseguiu o envio de anexo para o whatsApp ?

Estou usando um serviço mais barato: https://whatsgw.com.br/
envio a mensagem normalmente, mas não estou conseguindo enviar a imagem, tropeço na codificação da Base64.
tentei entre outros, o código: "Função pública ConvertFileToBase64 (strFilePath As String ) As String", mas sem resultado.