Evento Explorer.BeforeItemPaste (Outlook)
Ocorre quando um item do Outlook é colado.
Sintaxe
expression. BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )
Expressão Uma variável que representa um objeto Explorer .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Clipboardcontent | Obrigatório | Variant | O conteúdo a ser colado. |
| Target | Obrigatório | Folder | O destino da operação de colar. |
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a operação não será concluída e o item não será excluído. |
Comentários
Esse evento pode ser cancelado depois de iniciado.
Exemplo
O seguinte exemplo do Microsoft Visual Basic for Applications (VBA) pergunta ao usuário antes de colar o conteúdo da Área de Transferência no destino especificado. Se o usuário clicar em Sim, o conteúdo atual da Área de Transferência será copiado no destino especificado. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession, e a Initialize_handler rotina deve ser chamada antes que o procedimento de evento possa ser chamado pelo Outlook.
Public WithEvents myOlExp As Outlook.Explorer
Sub Initialize_Handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeItemPaste(ClipboardContent As Variant, ByVal Target As Folder, Cancel As Boolean)
Dim lngAns As Integer 'users' answer
'Prompt user about paste
lngAns = MsgBox("Are you sure you want to paste the contents of the clipboard into the " _
& Target.Name & "?", vbYesNo)
If lngAns = 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.