Evento Application.ItemSend (Outlook)
Ocorre sempre que um item Microsoft Outlook é enviado, seja pelo usuário através de um Inspetor (antes do Inspetor é fechado, mas após o usuário clicar no botão Enviar ) ou quando o método Send para um item do Outlook, como MailItem, é usado em um programa.
Sintaxe
expression. ItemSend( _Item_ , _Cancel_ )
expressão Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Item | Obrigatório | Objeto | O item que está sendo enviado. |
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a ação de envio não será concluída e o Inspetor permanecerá aberto. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) mostra como cancelar o evento ItemSend em resposta à entrada do usuário. O código de exemplo deve ser colocado em um módulo de classe e a rotina Initialize_handler deve ser chamada antes que o procedimento de evento pode ser chamado pelo Outlook.
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myOlApp = Outlook.Application
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Are you sure you want to send " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
Cancel = True
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.