vb.net加載項Outlook將新字段添加到tableview

Question

我在Outlook中將一些字段添加到表視圖時遇到問題。

我想自定義收件箱文件夾視圖。

我以編程方式添加了一些字段，如Receive，CC。

這是我的代碼：

tblView.ViewFields.Add("To")
tblView.ViewFields.Add("Cc")
tblView.ViewFields.Add("Received")
tblView.Save()
tblView.Apply()

但這行不通。 我不知道如何解決。

Answer 1

當表視圖已經包含要添加的字段時，Outlook將給出錯誤。 因此，為了使其工作，必須檢查該字段是否已經存在：

<System.Runtime.CompilerServices.Extension()>
Public Shared Function AddField(theView As Outlook.TableView, fieldName As String) As Outlook.ViewField
    Dim theField As Outlook.ViewField = Nothing
    Try
        theField = theView.ViewFields(fieldName)
    Catch ex As Exception
    End Try
    If theField Is Nothing Then
        theField = theView.ViewFields.Add(fieldName)
    End If
    Return theField
End Function

然后可以添加字段：

tblView.AddViewField("To")
tblView.AddViewField("Cc")
tblView.AddViewField("Received")
tblView.Save()
tblView.Apply()