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
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.