Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Representa um anexo para uma mensagem de e-mail intercalada.
Comentários
Um objeto Anexo corresponde a um dos anexos na lista de anexos na caixa Anexos na caixa de diálogo Intercalar para Email na interface de utilizador do Microsoft Publisher. (No menu Ficheiro, aponte para Enviar Email, selecione Enviar Email Intercalar e, em seguida, selecione Opções.)
Para remover o anexo do e-mail intercalado, utilize o método Eliminar do objeto Anexo .
Exemplo
A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como utilizar o método Adicionar para adicionar um anexo a uma mensagem de impressão em série. Adiciona um objeto Anexo que representa uma imagem de mapa de bits à coleção Anexos do documento ativo.
Antes de executar esta macro, coloque um ficheiro com o nome image.bmp na raiz da unidade C no computador ou altere o nome e o caminho do ficheiro na macro para especificar o que pretende anexar.
Tenha em atenção que, para enviar uma mensagem de impressão em série, tem de ligar a uma origem de dados, criar a impressão em série e, em seguida, enviar a mensagem. Para obter mais informações, veja o objeto EmailMergeEnvelope .
Public Sub Attachment_Example()
Dim pubAttachments As Publisher.Attachments
Dim pubAttachment As Publisher.Attachment
Dim pubMailMerge As Publisher.MailMerge
Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope
Set pubMailMerge = ThisDocument.MailMerge
Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope
Set pubAttachments = pubEmailMergeEnvelope.Attachments
Set pubAttachment = pubAttachments.Add("C:\image.bmp ")
End Sub
Métodos
Propriedades
Confira também
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.