Méthode Conversation.GetAlwaysMoveToFolder (Outlook)
Renvoie un objet Folder qui indique le dossier dans le magasin de remise spécifié vers lequel les nouveaux éléments qui arrivent dans la conversation sont toujours déplacés.
Syntaxe
expression. GetAlwaysMoveToFolder( _Store_ )
Expression Variable qui représente un objet « Conversation ».
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Store | Requis | Boutique | Banque où réside le dossier dans lequel les éléments de la conversation sont déplacés. |
Valeur renvoyée
Objet Folder dans le magasin spécifié vers lequel tous les nouveaux éléments qui arrivent dans la conversation sont toujours déplacés.
Remarques
Si le paramètre Store représente une banque de non-remise, telle qu’une banque d’archives .pst, la méthode GetAlwaysMoveToFolder renvoie un objet Folder qui s’applique aux éléments de conversation de la banque de remise par défaut.
Si aucun dossier autre que le dossier Éléments supprimés n’a été spécifié pour toujours déplacer les éléments de conversation, la méthode GetAlwaysMoveToFolder retourne Null (Nothing en Visual Basic).
Exemple
L’exemple de code Microsoft Visual Basic pour Application (VBA) suivant démontre comment rechercher le dossier dans lequel les nouveaux éléments de la conversation du premier message affiché dans le volet de lecture doivent toujours être déplacés. L’exemple de code, DemoGetAlwaysMoveToFolder, vérifie que les conversations sont activées dans le magasin pour l’élément de courrier sélectionné, obtient l’objet de conversation pour cet élément de courrier s’il existe une conversation, utilise GetAlwaysMoveToFolder pour obtenir le dossier et affiche le nom du dossier.
Sub DemoGetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get Item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oMail.Parent.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
Dim oFolder As Outlook.folder
Set oFolder = _
oConv.GetAlwaysMoveToFolder(oStore)
If Not (oFolder Is Nothing) Then
Debug.Print "MoveToFolder: " & oFolder.name
Else
Debug.Print "MoveToFolder action not set"
End If
End If
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.