ViewFields.Add-Methode (Outlook)

  • Artikel

Fügt das angegebene Feld am Ende der ViewFields -Auflistung für die Ansicht hinzu.

Syntax

Ausdruck. Hinzufügen (PropertyName)

Ausdruck Eine Variable, die ein ViewFields-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
PropertyName Erforderlich String Der Name der Eigenschaft, der das neue Objekt zugeordnet ist. Auf diese Eigenschaft kann anhand des Feldnamens (in der Feldwährung angezeigt) oder nach Namespace (dargestellt durch ViewField.ViewXMLSchemaName) verwiesen werden.

Rückgabewert

Ein ViewField -Objekt, das das neue Ansichtsfeld darstellt.

HinwBemerkungeneise

Verwenden Sie zum programmgesteuerten Hinzufügen eines benutzerdefinierten Felds zu einer Ansicht die ViewFields.Add -Methode. Dies ist die empfohlene Option zum Dynamisches Ändern der Ansicht über die XML -Eigenschaft des View -Objekts festlegen.

Für das Referenzieren der Eigenschaft in PropertyName anhand des Feldnamens ist der lokalisierte Name im entsprechenden Gebietsschema erforderlich. Weitere Informationen zum Referenzieren von Eigenschaften anhand des Namespaces finden Sie unter Verweisen auf Eigenschaften mithilfe von Namespaces.

Wenn Sie der ViewFields-Auflistung eine benutzerdefinierte Eigenschaft hinzufügen, muss die Eigenschaft in der UserDefinedProperties-Auflistung für den übergeordneten Ordner von View vorhanden sein.

Wenn die Eigenschaft in der ViewFields -Auflistung bereits vorhanden ist, löst Outlook einen Fehler.

Bestimmte Eigenschaften können nicht in eine Ansicht mit ViewFields.Add, einschließlich binäre Eigenschaften, berechnete Eigenschaften und HTML- oder RTF-Textinhalte hinzugefügt werden. Weitere Informationen finden Sie unter Nicht unterstützte Eigenschaften in einem Table-Objekt oder Table-Filter.

Beispiel

Im folgenden Codebeispiel in Microsoft Visual Basic für Applikationen (VBA) wird die aktuelle Ansicht im Posteingang, die darauf verweisen, dessen Name des Felds das Feld Betreff hinzugefügt. Um Outlook das Auslösen eines Fehlers zu vermeiden, überprüft das Vorhandensein des Felds in der ViewFields -Auflistung, die vor dem Hinzufügen die aktuelle Ansicht des Posteingangs darstellt.

Sub DemoViewFieldsAdd() 
 
 Dim oTableView As Outlook.TableView 
 
 Dim oViewFields As Outlook.ViewFields 
 
 Dim oViewField As Outlook.ViewField 
 
 Dim oInbox As Outlook.folder 
 
 
 
 Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 
 
 On Error GoTo Err_Handler 
 
 
 
 If oInbox.CurrentView.ViewType = olTableView Then 
 
 Set oTableView = oInbox.CurrentView 
 
 Set oViewField = oTableView.ViewFields("Subject") 
 
 If oViewField Is Nothing Then 
 
 Set oViewField = oTableView.ViewFields.Add("Subject") 
 
 End If 
 
 End If 
 
 Exit Sub 
 
 
 
Err_Handler: 
 
 MsgBox Err.Description, vbExclamation 
 
 Resume Next 
 
End Sub

Im folgenden Codebeispiel in VBA wird vorausgesetzt, die aktuelle Ansicht ist ein TableView, verweist auf die Nachrichtenklasse-Eigenschaft mithilfe von Namespaces und die aktuelle Ansicht des aktuellen Ordners hinzugefügt. Um Outlook das Auslösen eines Fehlers zu vermeiden, überprüft das Vorhandensein dieser Eigenschaft in der Ansicht vor dem Aufruf von ViewFields.Add.

Sub ViewFieldsAdd() 
 
 Dim oFolder As Outlook.Folder 
 
 Dim oView As Outlook.TableView 
 
 Dim oViewField As Outlook.ViewField 
 
 On Error Resume Next 
 
 Dim PR_MESSAGE_CLASS As String 
 
 PR_MESSAGE_CLASS = "http://schemas.microsoft.com/mapi/proptag/0x001a001e" 
 
 Set oFolder = Application.ActiveExplorer.CurrentFolder 
 
 If oFolder.CurrentView.ViewType = olTableView Then 
 
 Set oView = oFolder.CurrentView 
 
 'Determine if the ViewField exists in ViewFields collection 
 
 If oView.ViewFields(PR_MESSAGE_CLASS) Is Nothing Then 
 
 Set oViewField = oView.ViewFields.Add(PR_MESSAGE_CLASS) 
 
 'Persist the changes 
 
 oView.Save 
 
 End If 
 
 End If 
 
End Sub

Siehe auch

ViewFields-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.