We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Class ThisAddIn Private WithEvents inspectors As Outlook.Inspectors Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup inspectors = Me.Application.Inspectors End Sub Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem) mailItem.Sensitivity = Outlook.OlSensitivity.olNormal End Sub Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown End Sub End Class
Public Class Encryption Public Sub btnEncrypt_Click(sender As Object, e As RibbonControlEventArgs) Handles btnEncrypt.Click If btnEncrypt.Label = "Encryption (OFF)" Then 'Set the sensitivity to Confidential btnEncrypt.Label = "Encryption (ON)" Else 'Set the sensitivity to Normal btnEncrypt.Label = "Encryption (OFF)" End If 'System.Windows.Forms.MessageBox.Show("Your Ribbon Works!") 'btnEncrypt.Label = "Encryption (OFF)" End Sub End Class
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.