Compartilhar via

Objeto Anexos (Publisher)

A coleção de objetos anexo que representa todos os anexos de uma mensagem de e-mail intercalada.

Comentários

A coleção Anexos corresponde à lista de anexos na caixa Anexos na caixa de diálogo Intercalar para Email na interface de utilizador do Microsoft Publisher (no menu Ficheiro, aponte para Enviar Email, selecione Enviar Email Intercalar e, em seguida, selecione Opções).

Para adicionar um objeto Anexo à coleção Anexos e, assim, adicionar um anexo à lista de anexos ao e-mail intercalado que pretende enviar, utilize o método Adicionar .

Para remover um único anexo de uma mensagem de impressão em série, utilize o método Delete do objeto Anexo específico que pretende remover da coleção Anexos .

Para remover todos os anexos do e-mail intercalado e, assim, esvaziar a coleção Anexos , utilize o método ClearAll .

A propriedade padrão da coleção Attachments é a propriedade Item.

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como utilizar o método Adicionar para adicionar um anexo a uma mensagem de impressão em série. A macro adiciona um Objeto Attachment que representa uma imagem de bitmap à coleção Attachments do documento ativo. Ele também itera através da coleção de anexos e imprime o nome de cada anexo na janela Immediate.

Antes de executar esta macro, coloque um ficheiro com o nome image.bmp na raiz da unidade C no computador ou altere o nome e o caminho do ficheiro na macro para especificar o que pretende anexar.

Para enviar uma mensagem de impressão em série, tem de ligar a uma origem de dados, criar a impressão em série e, em seguida, enviar a mensagem. Para obter mais informações, veja o objeto EmailMergeEnvelope .

Public Sub Attachments_Example() 
 
 Dim pubAttachments As Publisher.Attachments 
 Dim pubAttachment As Publisher.Attachment 
 Dim pubAttachment_Added As Publisher.Attachment 
 Dim pubMailMerge As Publisher.MailMerge 
 Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope 
 
 Set pubMailMerge = ThisDocument.MailMerge 
 Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope 
 Set pubAttachments = pubEmailMergeEnvelope.Attachments 
 
 Set pubAttachment_Added = pubAttachments.Add("C:\image.bmp ") 
 
 For Each pubAttachment In pubAttachments 
 Debug.Print pubAttachment.Name 
 Next 
 
End Sub

Métodos

Propriedades

Confira também

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.

  • Last updated on