Método Attachments.Add (Outlook)

Cria um novo anexo na coleção Anexos .

Sintaxe

expressão. Adicionar (Fonte, Tipo, Posição, DisplayName)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Source	Obrigatório	Variantes	A fonte do anexo. Pode ser um arquivo (representado pelo caminho completo do sistema do arquivo com um nome de arquivo) ou um item do Outlook que constitui o anexo.
Type	Opcional	Long	O tipo de anexo. Pode ser uma das constantes OlAttachmentType .
Posição	Opcional	Long	Esse parâmetro se aplica apenas a mensagens de email usando o formato Rich Text: é a posição em que o anexo deve ser colocado no texto do corpo da mensagem. Um valor 1 para o parâmetro Position especifica que o anexo deve ser posicionado no início do corpo da mensagem. Um valor 'n' maior que o número de caracteres no corpo do item de email especifica que o anexo deve ser colocado no final. Um valor 0 oculta o anexo.
DisplayName	Opcional	String	Esse parâmetro só se aplica se o item de email estiver no formato Rich Text e Type estiver definido como olByValue : o nome será exibido em um objeto Inspector para o anexo ou ao exibir as propriedades do anexo. Se o item de email estiver em Texto sem Formatação ou no formato HTML, o anexo será exibido usando o nome do arquivo no parâmetro Source.

Valor de retorno

Um objeto Attachment que representa o novo anexo.

Comentários

Quando um Attachment é adicionado à coleção Attachments de um item, a propriedade Type do Attachment sempre retornará olOLE (6) até o item ser salvo. Para garantir resultados consistentes, sempre salve um item antes de adicionar ou remover objetos na coleção Attachments.

Exemplo

O exemplo do Microsoft Visual Basic/Visual Basic for Applications (VBA) a seguir cria um item de email, adiciona um anexo ao inseri-lo no início do corpo da mensagem e o exibe. Para executar este exemplo, verifique se o anexo, que é um arquivo chamado Test.Doc, está na pasta C:\.

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", _ 
 olByValue, 1, "Test" 
 myItem.Display 
End Sub

Confira também

Objeto Attachments

Anexar um arquivo a um item de emailAnexar um item de contato do Outlook a uma mensagem Emaillimitar o tamanho de um anexo a uma mensagem do Outlook Emailmodificar um anexo de uma mensagem do Outlook Email

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.