如何生成Outlook功能区？

Question

我正在尝试使用VB VSTO程序创建Outlook功能区。

我没有收到任何错误。我没有收到丝带。

我的代码：

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup(sender As Object, e As System.EventArgs)
        'Handles Me.Startup

    End Sub

Public Class ReadPublishing

Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As 
            RibbonUIEventArgs) Handles MyBase.Load

End Sub

Private Sub btnPDF_Click(sender As Object, e As RibbonControlEventArgs) 
            Handles btnPDF.Click
    Dim desktopFolder, fileName As String
    desktopFolder = Environment.GetFolderPath
                    (Environment.SpecialFolder.Desktop)
    fileName = "You press the black one"
    ' --- insert action  
End Sub

End Class

    Private Sub ThisAddIn_Shutdown(sender As Object, e As System.EventArgs)
        'Handles Me.Shutdown

    End Sub

End Class