Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Cria um novo anexo na coleção Anexos .
Sintaxe
expressão. Adicionar (Origem, Tipo, Posição, DisplayName)
expressão Uma variável que representa um objeto Anexos .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Source | Obrigatório | Variant | 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 | Este parâmetro aplica-se apenas a mensagens de e-mail com o formato RtF: é a posição em que o anexo deve ser colocado dentro do corpo de texto 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 do que o número de carateres no corpo do item de e-mail especifica que o anexo deve ser colocado no final. Um valor 0 oculta o anexo. |
| DisplayName | Opcional | String | Este parâmetro aplica-se apenas se o item de correio estiver no formato RtF e o Tipo estiver definido como olByValue : o nome é apresentado num objeto Inspetor do anexo ou ao visualizar 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 Anexo 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 Ficheiro a um Item de CorreioAnexar um Item de Contacto do Outlook a uma mensagem de EmailLimitar o Tamanho de um Anexo a uma Mensagem de Email do OutlookModificar um Anexo de uma Mensagem de Email do Outlook
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.