vb.net加載項展望添加新字段到表格

Question

我有一個問題，添加一些字段到Outlook中的tableview。

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

我已經添加了一些字段，如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()