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

5 participantes

    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 : 776
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio Sab 13 Fev 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 : 4144
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho Dom 14 Fev 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 : 776
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio Seg 15 Fev 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 : 4936
    Registrado : 20/04/2011

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

    Mensagem  Silvio Seg 15 Fev 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 : 410
    Registrado : 02/08/2018

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

    Mensagem  mfmaiafilho Ter 13 Abr 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 : 159
    Registrado : 29/01/2010

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

    Mensagem  Jr.Wano Qui 15 Abr 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: Dom 25 Set 2022, 16:08