Class ViewField (Outlook VBA)
The class ViewField represents a view field, used to display information in a view. To use a ViewField class variable it first needs to be instantiated, for example
Dim vfd as ViewField
Set vfd = Session.CreateSharingItem.Move.Views(1).ViewFields(Index:=1)
For Each
Here is an example of processing the ViewField items in a collection.
Dim vfd As ViewField
For Each vfd In Session.CreateSharingItem.Move.Views(1).ViewFields
Next vfd
Class
Returns an OlObjectClass constant indicating the object's class. Here you can find possible values for
Dim oocsClass As OlObjectClass
oocsClass = Session.CreateSharingItem.Move.Views(1).ViewFields(1).Class
ColumnFormat
Returns a ColumnFormat object that represents the formatting information for the ViewField object.
Private Sub DisplayTableViewFields()
Dim objTableView As TableView
Dim objViewField As ViewField
Dim strOutput As String
If Application.ActiveExplorer.CurrentView.ViewType = _
olTableView Then
' Obtain a TableView object reference for the
' current table view.
Set objTableView = _
Application.ActiveExplorer.CurrentView
' Iterate through the ViewFields collection for
' the table view, obtaining the label and the
' XML schema name for each field included in
' the view.
For Each objViewField In objTableView.ViewFields
With objViewField
strOutput = strOutput & .ColumnFormat.Label & _
" (" & .ViewXMLSchemaName & ")" & vbCrLf
End With
Next
' Display a dialog box containing the concatenated
' view field information.
MsgBox strOutput
End If
End Sub
Session
Returns the NameSpace object for the current session.
The Session property and the GetNamespace method can be used interchangeably to obtain the NameSpace object for the current session. Both members serve the same purpose. For example, the following statements perform the same function:
ViewXMLSchemaName
Returns a String value that represents the XML schema name for the property referenced by the ViewField object.
The value of this property contains the name of the property as it is included within the XML definition of the view containing the ViewField object. This value may not match the name used to refer to the property when the ViewField object was defined.
Private Sub DisplayTableViewFields()
Dim objTableView As TableView
Dim objViewField As ViewField
Dim strOutput As String
If Application.ActiveExplorer.CurrentView.ViewType = _
olTableView Then
' Obtain a TableView object reference for the
' current table view.
Set objTableView = _
Application.ActiveExplorer.CurrentView
' Iterate through the ViewFields collection for
' the table view, obtaining the label and the
' XML schema name for each field included in
' the view.
For Each objViewField In objTableView.ViewFields
With objViewField
strOutput = strOutput & .ColumnFormat.Label & _
" (" & .ViewXMLSchemaName & ")" & vbCrLf
End With
Next
' Display a dialog box containing the concatenated
' view field information.
MsgBox strOutput
End If
End Sub