Partager via


Événement Explorer.BeforeItemCut (Outlook)

Survient lorsqu'un élément Outlook est coupé dans un dossier.

Syntaxe

expression. BeforeItemCut( _Cancel_ )

Expression Variable qui représente un objet Explorer .

Parameters

Nom Requis/Facultatif Type de données Description
Cancel Obligatoire Booléen False lorsque l'événement se produit. Si la procédure événementielle affecte la valeur True à cet argument, l'opération n'est pas achevée et l'élément n'est pas supprimé.

Remarques

Cet événement peut être annulé après son déclenchement. Si l’événement est annulé, l’élément n’est pas supprimé.

Exemple

L’exemple Microsoft Visual Basic pour Applications (VBA) suivant montre comment afficher un message d’avertissement afin que l’utilisateur confirme la suppression de l’élément du dossier. Si l’utilisateur clique sur Oui, l’élément est coupé dans le dossier. Si l’utilisateur clique sur Non, l’élément n’est pas retiré du dossier. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la Initialize_handler routine doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook.

Public WithEvents myOlExp As Outlook.Explorer 
 
Sub Initialize_Handler() 
Set myOlExp = Application.ActiveExplorer 
End Sub 
 
Private Sub myOlExp_BeforeItemCut(Cancel As Boolean) 
'Prompts the user before cutting an item 
 
 Dim lngAns As Long 
 'Display question to user 
 lngAns = MsgBox("Are you sure you want to cut the item?", vbYesNo) 
 'Set cancel argument based on user's answer 
 If lngAns = vbYes Then 
 Cancel = False 
 ElseIf lngAns = vbNo Then 
 Cancel = True 
 End If 
 
End Sub

Voir aussi

Explorer, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.