Compartilhar via

Explorer. Evento 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
Área de TransferênciaContent 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 tem de ser colocado num módulo de classe, como ThisOutlookSession, e a Initialize_handler rotina tem de ser chamada antes de o procedimento do evento poder 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

Objeto Explorer

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.

  • Last updated on