Não há mais suporte para esse navegador.
Atualize o Microsoft Edge para aproveitar os recursos, o suporte técnico e as atualizações de segurança mais recentes.
Baixar o Microsoft Edge
Mais informações sobre o Internet Explorer e o Microsoft Edge
Ocorre quando um anexo é adicionado a uma instância do objeto pai.
Sintaxe
expression
.
AttachmentAdd
(
_Attachment_
)
expressão
Uma variável que representa um objeto
MailItem
.
Parâmetros
Obrigatório/Opcional
Tipo de dados
Descrição
Exemplo
Esse exemplo do Visual Basic for Applications (VBA) verifica o tamanho do item após um anexo ter sido adicionado e exibe um aviso caso o tamanho exceda 500.000 bytes. O código de exemplo deve ser colocado em um módulo de classe como
ThisOutlookSession
, e o
TestAttachAdd()
procedimento deve ser chamado antes que o procedimento de evento possa ser chamado pelo Microsoft Outlook.
Public WithEvents newItem As Outlook.MailItem
Private Sub newItem_AttachmentAdd(ByVal newAttachment As Attachment)
If newAttachment.Type = olByValue Then
newItem.Save
If newItem.Size > 500000 Then
MsgBox "Warning: Item size is now " & newItem.Size & " bytes."
End If
End If
End Sub
Public Sub TestAttachAdd()
Dim atts As Outlook.Attachments
Dim newAttachment As Outlook.Attachment
Set newItem = Application.CreateItem(olMailItem)
newItem.Subject = "Test attachment"
Set atts = newItem.Attachments
Set newAttachment = atts.Add("C:\Test.txt", olByValue)
End Sub
Confira também
Objeto MailItem
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.
