vb.net - vb.net 加载项 Outlook 将新字段添加到 tableview

Question

我在 Outlook 的表格视图中添加一些字段时遇到问题。

我想自定义收件箱文件夹视图。

我以编程方式添加了一些字段，例如接收、抄送。

这是我的代码：

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()