MailItem.Move-Methode (Outlook)
Verschiebt ein Microsoft Outlook-Element in einen neuen Ordner.
Syntax
Ausdruck. Move( _DestFldr_ )
Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| DestFldr | Erforderlich | Folder | Ein Ausdruck, der ein Folder -Objekt zurückgibt. Der Zielordner. |
Rückgabewert
Ein Object-Wert, der das Element darstellt, das in den festgelegten Ordner verschoben wurde.
Beispiel
In diesem beispiel für Visual Basic for Applications (VBA) wird GetDefaultFolder verwendet, um das Folder-Objekt zurückzugeben, das den Standardordner darstellt. Dann werden die Methoden Find und FindNext verwendet, um alle von Dan Wilson gesendeten Nachrichten zu finden, und die Methode Verschieben wird verwendet, um alle von Dan Wilson gesendeten E-Mail-Nachrichten vom Ordner Posteingang in den Ordner Persönliche E-Mails zu verschieben. Ersetzen Sie "Dan Wilson" durch einen gültigen Absendernamen und stellen Sie sicher, dass im Posteingang ein Unterordner mit dem Namen "Persönliche E-Mails" vorhanden ist, um dieses Beispiel ohne Fehlermeldungen auszuführen. Beachten Sie, dass für myItem der Typ Objekt deklariert wird, sodass alle Typen von Outlook-Elementen, einschließlich Besprechungsanfragen und Aufgabenanfragen, dargestellt werden können.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.