MailItem.Move-Methode (Outlook)

  • Artikel

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

MailItem-Objekt

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.