Globals.Ribbons.Ribbon1.comboBox1.Text = "Hello World"
...Private WithEvents myItem As Outlook.MailItem...Private Sub myItem_Open(ByRef Cancel As Boolean) Handles myItem.Open...Globals.Ribbons.Ribbon1.comboBox1.Text = "Hello World"...End Sub