Compartilhar via


Evento MailItem.Write (Outlook)

Ocorre quando uma instância do objeto pai é salva explícita (por exemplo, usando o método Save ou SaveAs ) ou implicitamente (por exemplo, em resposta a um aviso ao fechar o inspetor do item).

Sintaxe

expression. Write( _Cancel_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Cancel Obrigatório Boolean (Não utilizado no VBScript). False quando o evento ocorre. Se o procedimento de evento define este argumento como True, salvar operação não será concluída.

Comentários

No Microsoft Visual Basic Scripting Edition (VBScript), se você definir o valor de retorno dessa função como False, o salvamento operação não será concluída.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o evento Write e avisa ao usuário que o item está prestes a ser salvo e substituirá qualquer item existente e, dependendo da resposta do usuário, permite que a operação continue ou seja interrompida. Se esse evento for cancelado, Microsoft Outlook exibe uma mensagem de erro. Portanto, você precisa capturar esse evento em seu código. Uma maneira de fazer isso é mostrada abaixo. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession, e a Initialize_Handler() sub-rotina deve ser chamada antes que o procedimento de evento possa ser chamado pelo Outlook.

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Private Sub myItem_Write(Cancel As Boolean) 
 
 Dim myResult As Integer 
 
 myItem = "The item is about to be saved. Do you wish to overwrite the existing item?" 
 
 myResult = MsgBox(myItem, vbYesNo, "Save") 
 
 If myResult = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub 
 
 
 
Public Sub Initialize_Handler() 
 
 Const strCancelEvent = "Application-defined or object-defined error" 
 
 
 
 On Error GoTo ErrHandler 
 
 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
 myItem.Save 
 
 Exit Sub 
 
 
 
 ErrHandler: 
 
 MsgBox Err.Description 
 
 If Err.Description = strCancelEvent Then 
 
 MsgBox "The event was cancelled." 
 
 End If 
 
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.