É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
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.