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

    Menu relatório com anexo para WhastApp

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Menu relatório com anexo para WhastApp Empty Menu relatório com anexo para WhastApp

    Mensagem  gilberlanio 13/2/2021, 15:57

    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

    Menu relatório com anexo para WhastApp Whatsa11


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis

    fsouza32 gosta desta mensagem

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4133
    Registrado : 29/06/2012

    Menu relatório com anexo para WhastApp Empty Re: Menu relatório com anexo para WhastApp

    Mensagem  Noobezinho 14/2/2021, 22:01

    Gilberlanio

    Veja se isso te ajuda:

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

    { }'s

    Balem

    fsouza32 e Fernando Lucas gostam desta mensagem

    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Menu relatório com anexo para WhastApp Empty Re: Menu relatório com anexo para WhastApp

    Mensagem  gilberlanio 15/2/2021, 11:50

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


    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4753
    Registrado : 20/04/2011

    Menu relatório com anexo para WhastApp Empty Re: Menu relatório com anexo para WhastApp

    Mensagem  Silvio 15/2/2021, 12:43

    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/


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    fsouza32 gosta desta mensagem

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 02/08/2018

    Menu relatório com anexo para WhastApp Empty Re: Menu relatório com anexo para WhastApp

    Mensagem  mfmaiafilho 13/4/2021, 19:42

    como faço pra usar seu exemplo gilberlanio fncMenu()
    avatar
    Jr.Wano
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 157
    Registrado : 29/01/2010

    Menu relatório com anexo para WhastApp Empty Re: Menu relatório com anexo para WhastApp

    Mensagem  Jr.Wano 15/4/2021, 20:12

    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.

      Data/hora atual: 23/6/2021, 07:06