bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Abrir caixa de diálogo de e-mail pela ribbon

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é 2x no Cartão de Crédito. 

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

Open v3

 


 

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!

 


 

 


1 comentário(s)

Cristiano Percival de Freitas   31/05/2023 16:54:43

Boa Noite, essa ribons v7.0 funciona no office 2013, obrigado


Envie seu comentário: