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
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.