Columns.RemoveAll-Methode (Outlook)
Es werden alle Spalten aus der Columns -Auflistung entfernt, und das Table -Objekt wird zurückgesetzt.
Syntax
Ausdruck. RemoveAll
Ausdruck Eine Variable, die ein Columns-Objekt darstellt.
HinwBemerkungeneise
RemoveAll setzt die Tabelle durch die aktuelle Zeile genau vor die erste Zeile der Tabelle verschieben. Nach einem Aufruf von RemoveAll wird Columns.Count null (0).
Beispiel
Das folgende Codebeispiel veranschaulicht, wie ein Table -Objekt basierend auf der LastModificationTime von Elementen im Posteingang zu erhalten. Es wird gezeigt, wie die Standardspalten der Tabelle zu entfernen, bestimmte Spalten hinzugefügt und die Werte der entsprechenden Eigenschaften dieser Elemente drucken.
Sub RemoveAllAndAddColumns()
'Declarations
Dim Filter As String
Dim oRow As Outlook.Row
Dim oTable As Outlook.Table
Dim oFolder As Outlook.Folder
'Get a Folder object for the Inbox
Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
'Define Filter to obtain items last modified after May 1, 2005
Filter = "[LastModificationTime] > '5/1/2005'"
'Restrict with Filter
Set oTable = oFolder.GetTable(Filter)
'Remove all columns in the default column set
oTable.Columns.RemoveAll
'Specify desired properties
With oTable.Columns
.Add ("Subject")
.Add ("LastModificationTime")
'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace
.Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")
End With
'Enumerate the table using test for EndOfTable
Do Until (oTable.EndOfTable)
Set oRow = oTable.GetNextRow()
Debug.Print (oRow("Subject"))
Debug.Print (oRow("LastModificationTime"))
Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B"))
Loop
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.