Attachments.Add method (Publisher)

Adiciona um objeto Anexo à coleção Anexos de uma publicação do Microsoft Publisher.

Sintaxe

expressão. Adicionar (FileName)

expressão Uma variável que representa um objeto Anexos .

Parâmetros

Valor de retorno

Anexo

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como adicionar um anexo à mensagem numa impressão em série. O código adiciona um anexo a uma mensagem de e-mail e, em seguida, imprime o número de anexos atuais à mensagem na janela Imediata.

O anexo neste exemplo é um arquivo de imagem na raiz da unidade C. Antes de executar o código, substitua "C:\image.jpg" pelo caminho e nome do ficheiro no computador que pretende adicionar como um anexo de e-mail.

Antes de poder criar uma impressão em série, tem de utilizar o método OpenDataSource do objeto MailMerge para ligar o documento ativo a uma origem de dados. Para executar a mesclagem, use o método Execute do objeto MailMerge.

Para obter um exemplo de como ligar a uma origem de dados e criar uma impressão em série, veja o objeto EmailMergeEnvelope .

Public Sub Add_Example() 
 
 Dim pubAttachment As Publisher.Attachment 
 
 Set pubAttachment = ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Add("C:\image.jpg") 
 Debug.Print ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Count 
 
End Sub

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.