OL: Cómo utilizar CommandBars en soluciones de Outlook

Volver al principio

Arquitectura de Outlook CommandBar

• Utilice los objetos Explorer (ActiveExplorer/GetExplorer) para hacer referencia a la ventana de aplicación principal de Outlook.
• Utilice los objetos Inspector (ActiveInspector/GetInspector) para hacer referencia a la ventana de un elemento de Outlook.

                 |  To refer to the                  |  To refer to a folder
   Window type   |  "active" window                  |  or item's window
   ---------------------------------------------------------------------------------
   Application   |  Use the ActiveExplorer method.   |  Use the GetExplorer method.
                 |                                   |
   Item or Form  |  Use the ActiveInspector method.  |  Use the GetInspector method.
				

Consideraciones al utilizar Microsoft Word como editor de correo electrónico

• CommandBars forman parte de Word, no en Outlook.
• CommandBars diferentes están disponibles según el editor de mensajes y el formato.
• Los botones personalizados pueden desaparecer al cambiar el editor de mensajes o formato.
• CommandBar Sobres especial no está diseñado para personalizarse.
• No hay ningún objeto Inspector para los formatos HTML y texto sin formato con Office 2000 si Word está configurado como editor de correo electrónico.

Volver al principio

Historial de soporte de Outlook para menús personalizables y barras de herramientas

• En Microsoft Outlook 97, no se puede personalizar menús y barras de herramientas mediante la interfaz de usuario de Outlook. Outlook 97 no está diseñado para almacenar los cambios realizados en CommandBars. Aunque el modelo de objetos CommandBars se muestran en el modelo de objetos de Outlook, no puede utilizar el modelo de objetos CommandBars para modificar los menús o barras de herramientas porque se encuentren en un estado "sólo lectura". Sin embargo, puede utilizar el método Execute para ejecutar mediante programación un comando integrado de Outlook. La única forma de crear adicionales de los botones o comandos de menú en Outlook 97 es crear una extensión de cliente de Microsoft Exchange en C o C++.
• En Microsoft Outlook 98, Microsoft recomienda que no mediante programación realice cambios en el modelo de objetos CommandBars. Menús y barras de herramientas son personalizables en la interfaz de usuario de Outlook. Las personalizaciones se almacenan en un archivo denominado Outcmd.dat. Sin embargo, aunque el modelo de objetos CommandBars se exponen en el modelo de objetos de Outlook, y puede agregar mediante programación nuevos botones de barra de herramientas y comandos de menú, esta característica no se ha diseñado o probado para que funcione realmente. Como resultado, puede experimentar problemas si utiliza el modelo de objetos CommandBars en Outlook 98. Outlook 98 no admite Microsoft Visual Basic para aplicaciones (VBA) o código de nivel de aplicación. Por tanto, si agrega mediante programación un comando personalizado a una ventana de nivel de aplicación o explorador, no hay ninguna manera de adjuntar código personalizado al botón. Si agrega mediante programación un comando personalizado a una ventana de nivel de elemento o inspector, puede hacer que el botón Ejecutar secuencia de comandos personalizada de Microsoft Visual Basic Scripting Edition (VBScript) en el formulario, pero se producirán problemas que provocan el botón para mostrarse en otros tipos de elementos y puede haber diferencias entre los nuevos elementos de apertura y los elementos existentes.
• Outlook 2000 es la primera versión de Outlook que está diseñado para admitir barras de herramientas personalizables mediante programación y menús. Esto coincide con la adición de compatibilidad con complementos VBA y modelo de objetos componentes (COM).

Volver al principio

CommandBars y el modelo de objetos de Outlook

Volver al principio

Soluciones de formulario personalizado

Set objCBs = Item.GetInspector.CommandBars
				

Un ejemplo de VBScript para ejecutar un comando de Outlook

Sub CommandButton1_Click()
   Set MyCB = Item.GetInspector.CommandBars.Item("Menu Bar")
   Set MyMenu = MyCB.Controls("Actions")
   Set MyMenuItem = MyMenu.Controls("New Letter to Contact")
   MyMenuItem.Execute()
End Sub
				

Un ejemplo de VBScript que utiliza el método de "FindControl"

Sub cmdPrint_Click()
   Item.GetInspector.CommandBars.FindControl(,4).Execute
End Sub

Sub cmdPrint_Click()
   Item.GetInspector.CommandBars.Item("Menu Bar").Controls("File") _
      .Controls("Print...").Execute
End Sub
				

Volver al principio

Soluciones de aplicación

Set objCBs = Application.ActiveExplorer.CommandBars
				

Visual Basic para aplicaciones

1. En el menú Herramientas , haga clic en Personalizar .
2. Haga clic en la ficha comandos y, a continuación, haga clic en macros en la lista de categorías.
3. Arrastre una macro hasta el menú o barra de herramientas.
4. Para modificar el aspecto de la barra de herramientas o menú comando, en la ventana Personalizar , haga clic en Modificar selección y, a continuación, realizar las modificaciones en la barra de herramientas o comando de menú personalizado.
5. Haga clic en Cerrar .

Un ejemplo VBA para agregar un Control CommandBar

1. Crear un formulario de ejemplo personalizado posterior de Outlook y, a continuación, publicarlo a la Bandeja de entrada. Nombre formularioDePrueba .
2. En el menú Herramientas , elija macro y, a continuación, haga clic en Editor de Visual Basic .
3. En el proyecto ? Proyecto1 , haga doble clic en Proyecto1 , haga doble clic en Microsoft Outlook objetos y, a continuación, haga doble clic en ThisOutlookSession .
4. En la ventana código, escriba el siguiente código:

   Dim WithEvents myControl As CommandBarButton
   
   Private Sub Application_Startup()
   
      Dim oExp As Outlook.Explorer
      Dim oBar As Office.CommandBar
   
      Set oExp = Outlook.ActiveExplorer
      Set oBar = oExp.CommandBars.Item("Standard")
   
      ' See if button already exists based on Tag value
      Set myControl = oBar.FindControl(, , "OpenForm")
   
      ' If not found then create button
      If myControl Is Nothing Then
         Set myControl = oBar.Controls.Add(, , , 2, True)
         With myControl
            .Caption = "Open Form"
            .FaceId = 59
            .Style = msoButtonIconAndCaption
            .Tag = "OpenForm"
            .Visible = True
         End With
      End If
   
   End Sub
   
   Private Sub myControl_Click(ByVal Ctrl As _
         Office.CommandBarButton, CancelDefault As Boolean)
         
      Dim myFolder As MAPIFolder
   
      Set myFolder = Session.GetDefaultFolder(olFolderInbox)
      Set MyItem = myFolder.Items.Add("IPM.Post.TestForm")
      MyItem.Display
   
      Set MyItem = Nothing
      Set myFolder = Nothing
   
   End Sub
   					

5. Cierre el Editor de Visual Basic.
6. Cierre Outlook. Cuando se le pida guardar los cambios en el proyecto de VBA, haga clic en Sí .
7. Inicie Outlook.

Un ejemplo de complemento COM para agregar un Control CommandBar

Dim OL As Outlook.Application
Dim WithEvents objButton As Office.CommandBarButton

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
   ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
   ByVal AddInInst As Object, custom() As Variant)

   Dim objBar As Office.CommandBar
   Set OL = Application
   Set objBar = OL.ActiveExplorer.CommandBars.Item("Standard")
   Set objButton = objBar.Controls.Add(, , , 1, True)
   With objButton
      .FaceId = 59
      .Caption = "My Button"
      .Style = msoButtonIconAndCaption

      ' The OnAction property is optional but recommended. 
      ' It should be set to the ProgID of the add-in, such that if
      ' the add-in is not loaded when a user presses the button,
      ' Outlook loads the add-in automatically and then raises
      ' the Click event for the add-in to handle. 

      .OnAction = "!<" & AddInInst.ProgId & ">"
   End With

End Sub

Private Sub objButton_Click(ByVal Ctrl As Office.CommandBarButton, _
   CancelDefault As Boolean)

   MsgBox "Hello World"

End Sub
				

Volver al principio

Utilizar una utilidad de Microsoft Excel para generar una lista de identificadores de CommandBar de Outlook

1. Inicie Excel. Asegúrese de que se encuentra en un nuevo libro de Excel.
2. En el menú Herramientas , elija macro y, a continuación, haga clic en Editor de Visual Basic .
3. En la ventana del editor del explorador de proyectos, haga doble clic en ThisWorkbook para abrir una ventana de código.
4. En la ventana código, escriba el siguiente código:

   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
   					

5. En el menú Herramientas , haga clic en referencias . En la lista de bibliotecas de objetos disponibles, haga clic en Biblioteca de objetos de Microsoft Outlook 10.0 y a continuación, haga clic en Aceptar .
6. Cierre el Editor de Visual Basic.
7. Guardar el libro de Excel para que tenga para uso futuro.

1. Asegúrese de que la configuración de seguridad de Excel permite que se ejecute la macro. En el menú Herramientas , haga clic en seguridad y, a continuación, asegúrese de que la configuración se establecido en medio o bajo , por lo menos temporalmente. Si cambia la configuración de alta , debe reiniciar Excel.
2. Abra el libro que ha creado al configurar la utilidad de Excel.
3. En el menú Herramientas , elija macro y, a continuación, haga clic en macros . Haga clic en la macro GetOutlookCommandBarIDs y, a continuación, haga clic en Ejecutar .
4. Espere mientras se genera la hoja de cálculo. Esta operación tardará al menos un par de minutos. Cuando la macro finalice runnning, recibirá un mensaje que indica, "la hoja de cálculo está completo."
5. Después de genera la hoja de cálculo, guarde el libro para que no es necesario volver a ejecutar la macro.

Volver al principio