MS Outlookの - カスタムフォーム＆VBA

Question

私はOutlook標準新しいメッセージフォームを変更し、cboDepartmentと呼ばれるコンボボックスを追加しています。送信イベントでこのコンボボックスにアクセスするにはどうすればよいですか？私が試してみました：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
Item.Subject = Item.cboDepartment + " - " + Item.Subject  
End Sub 

Answer 1

Item.cboDepartment.Value何をしたいあなたを取得する必要があります（選択に関連する表示されたテキストの場合）またはItem.cboDepartment.Text（選択に関連付けられた値のため）。