Méthode MailItem.Move (Outlook)
Déplace un élément Microsoft Outlook vers un nouveau dossier.
Syntaxe
expression. Move( _DestFldr_ )
expression Variable qui représente un objet MailItem.
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| DestFldr | Obligatoire | Folder | Expression qui renvoie un objet Folder. Dossier de destination. |
Valeur renvoyée
Valeur Object qui représente l’élément déplacé vers le dossier désigné.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise GetDefaultFolder pour renvoyer l’objet Folder qui représente le dossier par défaut. Il utilise ensuite les méthodes Find et FindNext pour rechercher tous les messages envoyés par Dan Wilson et utilise la méthode Move pour déplacer tous les messages électroniques envoyés par Dan Wilson du dossier Boîte de réception par défaut vers le dossier Courrier personnel. Pour exécuter cet exemple sans erreur, remplacez « Dan Wilson » par un nom d'expéditeur valide et vérifiez qu'il existe un dossier sous Boîte de réception nommé « Courrier personnel ». Sachez que myItem est déclaré comme étant de type Object afin qu'il puisse représenter tout type d'élément Outlook, y compris les éléments de demande de réunion et de demande de tâche.
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
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.