Как добавить новый элемент в меню гиперссылок в Outlook 2007 с VBA?

Question

Мне нужно добавить новый элемент в меню гиперссылок в Outlook 2007 (теперь оно содержит такие элементы, как Копировать, Выбрать гиперссылку, Открыть гиперссылку, Копировать гиперссылку, Кто есть).

Как я могу это сделать? (это должен быть макрос VBA, добавленный в Outlook)

Answer 1

Похоже, что с VBA этого не сделать Даже у MS нет ответа.

Answer 2

Полная статья об объектах Outlook и CommandBar: здесь .

Ниже приведен код в конце статьи, который вы можете запустить в Excel для получения списка всех объектов CommandBar. Обратите внимание, что вы должны иметь библиотеку Outlook в списке ссылок в VBA, чтобы запустить это:

Option Explicit
Dim oOutApp As Outlook.Application
Dim I As Long
Dim iRowCount As Long
Dim oItm As Object ' so it'll handle varying item types
Dim oSheet As Excel.Worksheet
Dim oNS As Outlook.NameSpace
Dim oFld As Outlook.MAPIFolder

Sub GetOutlookCommandBarIDs()

If MsgBox("This will clear the current worksheet, OK to continue?", vbOKCancel) = 1 Then

   Cells.Select
   Selection.ClearContents

   iRowCount = 0
   Set oSheet = ActiveSheet
   Set oOutApp = New Outlook.Application
   Set oNS = oOutApp.Session

   Set oItm = oOutApp.CreateItem(olMailItem)
   GetInspectorIDs oItm, "Mail Message"
   Set oItm = oOutApp.CreateItem(olPostItem)
   GetInspectorIDs oItm, "Post"
   Set oItm = oOutApp.CreateItem(olContactItem)
   GetInspectorIDs oItm, "Contact"
   Set oItm = oOutApp.CreateItem(olDistributionListItem)
   GetInspectorIDs oItm, "Distribution List"
   Set oItm = oOutApp.CreateItem(olAppointmentItem)
   GetInspectorIDs oItm, "Appointment"
   Set oItm = oOutApp.CreateItem(olTaskItem)
   GetInspectorIDs oItm, "Task"
   Set oItm = oOutApp.CreateItem(olJournalItem)
   GetInspectorIDs oItm, "Journal Entry"

   Set oFld = oNS.GetDefaultFolder(olFolderInbox)
   GetExplorerIDs oFld, "Mail Folder"
   Set oFld = oNS.GetDefaultFolder(olFolderContacts)
   GetExplorerIDs oFld, "Contact Folder"
   Set oFld = oNS.GetDefaultFolder(olFolderCalendar)
   GetExplorerIDs oFld, "Calendar Folder"
   Set oFld = oNS.GetDefaultFolder(olFolderTasks)
   GetExplorerIDs oFld, "Task Folder"
   Set oFld = oNS.GetDefaultFolder(olFolderJournal)
   GetExplorerIDs oFld, "Journal Folder"
   Set oFld = oNS.GetDefaultFolder(olFolderNotes)
   GetExplorerIDs oFld, "Notes Folder"

   Selection.AutoFilter
   Cells.Select
   Cells.EntireColumn.AutoFit
   Range("A1").Select

   MsgBox "The spreadsheet is complete."

End If

End Sub


Sub GetInspectorIDs(oItm, sType As String)
   Dim oCBs As Office.CommandBars
   Dim oCtl As Office.CommandBarControl
   Set oCBs = oItm.GetInspector.CommandBars
   For I = 1 To 35000
      Set oCtl = oCBs.FindControl(, I)
      If Not (oCtl Is Nothing) Then
         iRowCount = iRowCount + 1
         oSheet.Cells(iRowCount, 1) = "Inspector"
         oSheet.Cells(iRowCount, 2) = sType
         oSheet.Cells(iRowCount, 3) = oCtl.Parent.Name
         oSheet.Cells(iRowCount, 4) = oCtl.Caption
         oSheet.Cells(iRowCount, 5) = CStr(I)
      End If
   Next
End Sub


Sub GetExplorerIDs(oFld As Outlook.MAPIFolder, sType As String)
   Dim oCBs As Office.CommandBars
   Dim sFilter As String
   Dim oCtl As Office.CommandBarControl
   Set oCBs = oFld.GetExplorer.CommandBars
   For I = 1 To 35000
      Set oCtl = oCBs.FindControl(, I)
      If Not (oCtl Is Nothing) Then
         iRowCount = iRowCount + 1
         oSheet.Cells(iRowCount, 1) = "Explorer"
         oSheet.Cells(iRowCount, 2) = sType
         oSheet.Cells(iRowCount, 3) = oCtl.Parent.Name
         oSheet.Cells(iRowCount, 4) = oCtl.Caption
         oSheet.Cells(iRowCount, 5) = CStr(I)
      End If
   Next
End Sub

Выдержка из вывода, который вам поможет:

Inspector   Mail Message    Insert  Te&xt Box          139
Inspector   Mail Message    Insert  &Symbol...         308
Inspector   Mail Message    Insert  &Tip Wizard 5      345
Inspector   Mail Message    Insert  &Object...         546
Inspector   Mail Message    Insert  Boo&kmark...       758
Inspector   Mail Message    Insert  Date and &Time...  768
Inspector   Mail Message    Insert  &Field...          772
Inspector   Mail Message    Insert  Attach             1079
Inspector   Mail Message    Insert  &Hyperlink...      1576
Inspector   Mail Message    Insert  New Co&mment       1589
Inspector   Mail Message    Insert  It&em...           2505
Inspector   Mail Message    Insert  &Remove Hyperlink  3626
Inspector   Mail Message    Insert  &Calendar...       11496
Inspector   Mail Message    Insert  &Picture           30180

Таким образом, вы получите к нему что-то вроде:

 Dim oItm As Object
 Dim oExp As Outlook.Explorer
 Dim oBar As Office.CommandBar
 Dim oOutApp As Object

 Set oOutApp = CreateObject("Outlook.Application")

 Set oItm = oOutApp.CreateItem(olMailItem)
 Set oExp = Outlook.ActiveExplorer
 Set oBar = oItm.GetInspector.CommandBars.Item("Insert")

 oBar.Controls.Add (blahblahblah)

Примечание: Я смог протестировать только в Outlook 2010.

Answer 3

Извините, у меня нет определенного ответа для вас, но, надеюсь, я могу указать вам верное направление.

Этот форум, надеюсь, будет полезен , похоже, они 'Вы делаете то же самое там (хотя и с другим меню).

И если вам нужна помощь по основам, вот два блога MSDN, в которых говорится о макросах Outlook и VBA в целом:
http://blogs.msdn.com/b/synergist/archive/2007/05/23/adding-a-vba-macro-to-outlook.aspx
http://blogs.msdn.com/b/swiss_dpe_team/archive/2007/12/11/office-2007-outlook2007-macros-vba-how-to-work-better-with-categories.aspx

Надеюсь, это поможет!

Answer 4

посмотрел на http://msdn.microsoft.com/en-us/library/bb206754(v=office.12).aspx?