... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Abrir caixa de diálogo de e-mail pela ribbon

Usuário Rodrigo:

Boa Noite.

Como fazer para que, ao abrir a caixa de diálogo de e-mail padrão (outlook, thundirbird.. etc), já insira o e-mail cadastrado, utilizando o botão da ribbon?

<group id="grpTools" label="Enviar Email" visible="true">
   <button idMso="FileSendAsAttachment" 
   size="large" label="Enviar" 
   imageMso="FileSendAsAttachment" 
   visible="true"/>
</group>

Desta forma acima, apenas insere o relatório em anexo, mas sem outros dados como assunto, corpo e e-mail.

PS: tem que ser pelo botão da ribbon.

Suporte:

Rodrigo,

para isso deve passar o procedimento para uma função pública. Nesta função, você  cria sua rotina de preenchimento do e-mail.

Veja as alterações no botão da ribbon:

<group id="grpTools" label="Enviar Email" visible="true">
   <button id="btFileSendAsAttachment" 
   size="large" 
   label="Enviar" 
   imageMso="FileSendAsAttachment" 
   visible="true"
   onAction="=fncNomeDaSuaFunção()"
   />
</group>

Atente que eu modifiquei o botão da ribbon para usar id ao invés do idMso (uso de comandos do Office).

Veja como pode utilizar o código na função pública fncNomedaSuaFunção():

Public sub fncNomeDaSuaFunção()
DoCmd.SendObject acReport,"relatorio","*.pdf",[Email], , _
,"Orçamento","O orçamento está anexado à mensagem.",True,""
end sub

Usuário:

Simples e eficiente. Resolvido a questão.

Muito obrigado!


 

 


Não há comentário

Envie seu comentário: