I discovered a partial solution:
' Automatic zoom changer
' Insert code in "ThisOutlookSession" module
' Set Tools > Reference to "Microsoft Word 14.0 Object Library"
Option Explicit
Dim WithEvents objInspectors As Outlook.Inspectors
Dim WithEvents objOpenInspector As Outlook.Inspector
Dim WithEvents objMailItem As Outlook.MailItem
Private Sub Application_Startup()
Set objInspectors = Application.Inspectors
End Sub
Private Sub Application_Quit()
Set objOpenInspector = Nothing
Set objInspectors = Nothing
Set objMailItem = Nothing
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Set objMailItem = Inspector.CurrentItem
Set objOpenInspector = Inspector
End If
End Sub
Private Sub objOpenInspector_Close()
Set objMailItem = Nothing
End Sub
Private Sub objOpenInspector_Activate()
Dim wdDoc As Word.Document
Set wdDoc = objOpenInspector.WordEditor
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 150 ' Set zoom level here
End Sub
To enable the macro, exit VBA, and exit and restart Outlook.
It works when I open (most) messages.
But it would be great if the macro was activated when I move directly from one message to the next. (In my case, I open a message in the normal way, and then press Ctrl + > to open the next message, and Ctrl + < to open the previous message.
Any thoughts on how to add this functionality?