Usando Access

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

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

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 | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |