Evento Application.ItemSend (Outlook)

  • Artigo

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

Objeto de Aplicativo

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.