Método Attachments.Add (Publisher)

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

Sintaxe

expressão. Adicionar (FileName)

Expressão Uma variável que representa um objeto Attachments .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FileName	Obrigatório	String	Nome de arquivo do anexo.

Valor de retorno

Anexo

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como adicionar um anexo à mensagem em uma mesclagem de email. O código adiciona um anexo a uma mensagem de email 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 para e o nome do arquivo em seu computador que você deseja adicionar como um anexo de email.

Antes de criar uma mesclagem de email, você deve usar o método OpenDataSource do objeto MailMerge para conectar o documento ativo a uma fonte de dados. Para executar a mesclagem, use o método Execute do objeto MailMerge.

Para obter um exemplo de como se conectar a uma fonte de dados e criar uma mesclagem de email, consulte 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.