How to dock the Styles Task Pane in the e-mail editing window?

[evdbogaard]

I'm looking for VBA code to dock the Styles Task Pane to the right side of the mail editing window.
In Word 2010 I can do this with this code:

With Application.TaskPanes(wdTaskPaneFormatting)
If .Visible = False Then .Visible = True
CommandBars("Task Pane").Position = 2 'msoBarRight
End With

But I can't figure out how to do this in Outlook 2010 VBA.

 

[Diane Poremsky]

this opens it (but docking is causing an error) - code samples taken from Use a Default Subject for New Messages and Use Word Macro to Apply Formatting to Email

' Based on http://www.vboffice.net/en/developers/newinspector-and-inspector-activate
Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector

Private Sub Application_Startup()
  Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  Set m_Inspector = Inspector
End Sub

Private Sub m_Inspector_Activate()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector
  
Set objItem = m_Inspector.CurrentItem
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
    Set objDoc = objInsp.WordEditor
    Set objWord = objDoc.Application
             
With objWord.TaskPanes(wdTaskPaneFormatting)
If .Visible = False Then .Visible = True

'  objWord.CommandBars("Task Pane").Position = 2 'msoBarRight
End With
End If
  Set m_Inspector = Nothing
 

End Sub