|
|
|
|
There are two ways to temporarily increase or decrease the zoom level in the Microsoft OutlookReading Pane (Reading Pane: A window in Outlook where you can preview an item without opening it. To display the item in the Reading Pane, click the item.).
Do one of the following:
Note The zoom affects only the current item that is previewed. When you select another item or folder, the Reading Pane returns to the default 100% size.
thank you.
While you are in outlook do the following
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_Quite()
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 = 140
End Sub
Hi
You can do this through VBA code
There are many that you can search for, the one I tested and borrowed from was at the following link
http://www.eggheadcafe.com/software/aspnet/33641766/persistent-zoom-setting-for-email.aspx
You may write you code from scratch if you like (into the obj ThisOutlookSession)
Any Zoom based code should have the following 2 lines that cotnrol the zooming
Set wdDoc = objOpenInspector.WordEditor
wdDoc.Windows(1).Panes(1).View.Zoom.Percentage = 160
Hope this helps
Hi & thank you.
however this is a little to technical for me to be honest. Not sure how i would do this at all.
While you are in outlook do the following
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_Quite()
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 = 140
End Sub
Hi
thank you for the details and the clear instructions. I was able to do this as detailed. I then closed outlook and re-opened. However the reading pane reset itself to 100%. So this did not work for me.
was able to follow instructions, but did not work for me either
Hi
If the code is pasted when ThisOutLooksession is properly selected and the code is pasted on the rigth side of the windows.
A number of Sub(s) will be created without errors.
The code should work when you restart your outlook and sure that outlook is not runing still in Memory.
The only case that I could think of that would not work is that you Outlook Macro is Diabled for any kind of security or trust centers.
You need to enable outlook macros first and restart outlook
Please let me know if it works with you and I will follow until it does
Hi
If the code is pasted when ThisOutLooksession is properly selected and the code is pasted on the rigth side of the windows.
A number of Sub(s) will be created without errors.
The code should work when you restart your outlook and sure that outlook is not runing still in Memory.
The only case that I could think of that would not work is that you Outlook Macro is Diabled for any kind of security or trust centers.
You need to enable outlook macros first and restart outlook
Please let me know if it works with you and I will follow until it does
Hi,
Will look at it today and let you know
Kind Regards
Enter the thread ID of the thread you are merging into
To report abuse, sign in or continue without signing in
Thank you.
|
|
|
Don't have one of the above accounts?
