Objeto MsoEnvelope (Office)

Fornece acesso à funcionalidade que lhe permite enviar documentos como mensagens de e-mail diretamente a partir de aplicações do Microsoft Office.

Comentários

Utilize a propriedade MailEnvelope do objeto Documento , objeto Gráfico ou objeto folha de cálculo (consoante a aplicação que estiver a utilizar) para devolver um objeto MsoEnvelope .

Exemplo

O exemplo seguinte envia o documento ativo do Microsoft Word como uma mensagem de e-mail para o endereço de e-mail que transmite à subrreplicação.

Sub SendMail(ByVal strRecipient As String) 
 
 'Use a With...End With block to reference the MsoEnvelope object. 
 With Application.ActiveDocument.MailEnvelope 
 
 'Add some introductory text before the body of the email. 
 .Introduction = "Please read this and send me your comments." 
 
 'Return a Microsoft Outlook MailItem object that 
 'you can use to send the document. 
 With .Item 
 
 'All of the mail item settings are saved with the document. 
 'When you add a recipient to the Recipients collection 
 'or change other properties, these settings persist. 
 .Recipients.Add strRecipient 
 .Subject = "Here is the document." 
 
 'The body of this message will be 
 'the content of the active document. 
 .Send 
 End With 
 End With 
End Sub

Confira também

• Membros do objeto MsoEnvelope
• Referência do modelo de objeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.