VSTO CommandBarButton 위치
-
21-08-2019 - |
문제
Outlook 2003의 모든 새 메일 항목에 대한 표준 도구 모음 단추를 추가하기 위해 VSTO 추가 기능을 작성 중입니다.
대부분 완료했지만 작업 표시줄에서 버튼 위치를 설정하는 방법을 알아낼 수 없습니다. 이상적으로는 보내기 버튼 바로 옆에 배치하고 싶습니다.
지금까지 내가 가지고 있는 코드는 다음과 같습니다.
Private Sub colInsp_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles colInsp.NewInspector
Dim msg As Outlook.MailItem
Dim commandBar As Office.CommandBar
Dim encryptButton As Office.CommandBarButton
Dim olkitem As Object
olkitem = Me.ActiveInspector().CurrentItem
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
msg = CType(Inspector.CurrentItem, Outlook.MailItem)
commandBar = Inspector.CommandBars("Standard")
encryptButton = commandBar.FindControl(Tag:="EncryptMail")
If Not (encryptButton Is Nothing) Then
encryptButton.Delete()
End If
encryptButton = CType(commandBar.Controls.Add(1), Office.CommandBarButton)
encryptButton.Style = Office.MsoButtonStyle.msoButtonIconAndCaption
encryptButton.FaceId = 718
encryptButton.Caption = "Secure Email"
encryptButton.Tag = "EncryptMail"
If olkitem.Sensitivity = Outlook.OlSensitivity.olConfidential Then
encryptButton.State = Office.MsoButtonState.msoButtonDown
End If
AddHandler encryptButton.Click, AddressOf encryptButton_Click
msg = Nothing
End If
End Sub
어떤 도움이라도 대단히 감사하겠습니다!
감사합니다, 짐.
해결책
나는 commandBar.AddControl(control, position)
대신 구문
다른 팁
아웃룩 2007:
(Office.CommandBarButton)commandBars["Standard"].Controls.Add(Office.MsoControlType.msoControlButton, System.Reflection.Missing.Value, System.Reflection.Missing.Value,2,true);
어디 2
포지션의 수입니다.
제휴하지 않습니다 StackOverflow