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é 10x 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!
An Invitation
Meet the first tool in the world, developed in Microsoft Access, for the configuration and creation of custom ribbons. Ribbons have come to stay, therefore it is crucial that you get to know and learn this application!
Click here and get to know everything about this amazing tool!
1 comentário(s) Cristiano Percival de Freitas 31/05/2021 16:54:43 Boa Noite, essa ribons v7.0 funciona no office 2013, obrigado |