Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,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

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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!

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |