Evento MailItem.BeforeAttachmentSave (Outlook)

Ocorre imediatamente antes de um anexo ser salvo.

Sintaxe

expression. BeforeAttachmentSave( _Attachment_ , _Cancel_ )

expressão Uma variável que representa um objeto MailItem.

Parâmetros

Comentários

Esse evento corresponde a quando anexos são salvos no armazenamento de mensagens. O evento BeforeAttachmentSave ocorre logo antes de um anexo ser salvo quando um item for salvo. Se um usuário edita um anexo e, em seguida, salva as alterações, não ocorrerá o evento BeforeAttachmentSave nesse momento; em vez disso, ele ocorrerá quando o próprio item for salvo posteriormente. Ele também não ocorre quando o anexo será salvo no disco rígido usando o método SaveAsFile.

No VBScript, se você definir o valor de retorno dessa função como False, o salvamento operação será cancelada e o anexo não será alterado.

Exemplo

Este exemplo Visual Basic for Applications (VBA) informa ao usuário que o usuário não tem permissão para salvar o anexo. O argumento Cancelar está definido como Verdadeiro para cancelar a operação de gravação. O código de exemplo tem de ser colocado num módulo de classe, como ThisOutlookSession, e o TestAttachSave() procedimento deve ser chamado antes de o procedimento do evento poder ser chamado pelo Microsoft Outlook.

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub myItem_BeforeAttachmentSave(ByVal myAttachment As Attachment, Cancel As Boolean) 
 MsgBox "You are not allowed to save " & myAttachment.FileName 
 Cancel = True 
End Sub 
 
Public Sub TestAttachSave() 
 Set myItem = Application.ActiveInspector.CurrentItem 
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.