Folders.GetFirst-Methode (Outlook)
Gibt das erste Objekt in der Folders -Auflistung zurück.
Syntax
Ausdruck. GetFirst
Ausdruck: Eine Variable, die ein Folders-Objekt darstellt.
Rückgabewert
Ein Folder -Objekt, das das erste in der Auflistung enthaltene Objekt darstellt.
HinwBemerkungeneise
Gibt Nothing zurück, wenn kein erstes Objekt vorhanden ist, z. B. wenn keine Objekte in der Auflistung vorhanden sind. Um den korrekten Betrieb der Methoden GetFirst, GetLast, GetNext und GetPrevious in einer großen Sammlung sicherzustellen, rufen Sie GetFirst auf, bevor Sie GetNext für diese Sammlung aufrufen, und rufen Sie GetLast auf, bevor GetPrevious aufgerufen wird. Um sicherzustellen, dass Sie die Aufrufe immer auf die gleiche Auflistung ausführen, erstellen Sie eine explizite Variable, die auf diese vor dem Durchführen einer Schleife.
Beispiel
Visual Basic für Applikationen (VBA) wird die GetFirst -Methode verwendet, um den ersten Ordner im Ordner " Kontakte " zu suchen und klicken Sie dann den Ordner in den Ordner Test kopiert. Bevor Sie dieses Beispiel ausführen, müssen Sie sicherstellen, dass die erforderlichen Ordner in den Standardordnern Kontakte und Posteingang Ordner vorhanden sind.
Sub CopyItems()
Dim myNameSpace As Outlook.NameSpace
Dim myDestFolder As Outlook.Folder
Dim mySourceFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Test")
Set mySourceFolder = myNameSpace.GetDefaultFolder(olFolderContacts).Folders.GetFirst
Set myNewFolder = mySourceFolder.CopyTo(myDestFolder)
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für