Как я могу установить масштаб панели чтения Outlook?

Question

Я знаю, что мы можем использовать Ctrl+Mouse Wheel, чтобы увеличивать и уменьшать масштаб, но есть ли способ навсегда установить масштаб по умолчанию для области чтения?

Answer 1

Как установить масштаб по умолчанию для входящих писем в MS Outlook 2010:

• Пуск - Microsoft Office - Инструменты и Microsoft Office - цифровой сертификат для Project VBA, создайте сертификат с именем, например, Zoom
• Запустить Outlook
• Файл - Параметры - Центр управления безопасностью - Настройки Центра управления безопасностью - Параметры, выберите Макросы, или "Уведомление для всех макросов" или «Уведомление для макросов с цифровой подписью, все неподписанные макросы отключены»
• Alt+F11 - запустить редактор VBA
• В верхнем левом окне щелкните по черновому проекту - MS Outlook Object и дважды щелкните по ThisOutlookSession.
• Справа открывается окно (View.Zoom.Percentage = 150 - scale по умолчанию)
• Инструменты - Ссылки, проверьте Microsoft Word 14.0 Object Library
• F5 - придумать имя, например, «Zoom - Create»
• Инструменты - Цифровая подпись: выберите ранее созданную подпись с именем Zoom
• Файл - сохранить
• Alt+Q
• Перезапустите Outlook
• Появится окно с запросом на добавление в сертификат доверенной зоны.

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
End Sub

Answer 2

Похоже, это связано с настройками DPI на вашем компьютере, а также с уровнем масштабирования, установленным в Outlook.

Одна вещь может быть, чтобы изменить размер текста в письмах -

Настройте размер шрифта для текстовых сообщений

Для простого текста вы можете изменить шрифт дисплея с помощью

• Outlook 2007 и предыдущий:
  Инструменты → Параметры… → вкладка «Формат почты» → кнопка «Канцелярские товары и шрифты» (или только шрифты… в предыдущих версиях Outlook)
• Outlook 2010:
  Файл → Параметры → раздел Почта → кнопка Канцтовары и шрифты

Источник: Увеличить шрифт в области чтения - MSOutlook.info

Answer 3

Я также искал решение, которое поможет с этим в Outlook 2013, и только что натолкнулся на стороннее коммерческое дополнение, которое поможет с надстройкой Zoom Email для Windows от http://www.sperrysoftware.com/outlook/zoom-email-windows.asp.

Я только что установил пробную версию в Outlook 2013 32bit, и она работает хорошо для меня, то есть она автоматически устанавливает значение масштабирования в области чтения в соответствии с тем, что я настроил. Я хотел бы предложить это, если вы все еще ищете решение.

Answer 4

здесь обновлен код Outlook VBA, который изменяет размеры как открытых сообщений, так и области чтения. Microsoft заблокировала доступ к параметру Zoom, поэтому вам придется сначала установить драйверы Redemption (http://www.dimastr.com/redemption/home.htm), а затем в разделе "Инструменты и ссылки VBA" активировать «Библиотека объектов Microsoft Word 15.0» и « Outlook "Выкуп" и COM-библиотека MAPI ». Вставьте и запустите приведенный ниже код, масштабирование задается в константе MsgZoom.

Option Explicit  
 Dim WithEvents objInspectors As Outlook.Inspectors      
 Dim WithEvents objOpenInspector As Outlook.Inspector
 Dim WithEvents objMailItem As Outlook.MailItem  
 Dim WithEvents myOlExp As Outlook.Explorer  
 Dim sExplorer As Object    
 Dim Document As Object  
 Dim Msg  
 Const MsgZoom = 130  

Private Sub Application_Startup()  
 Set objInspectors = Application.Inspectors  
 Set myOlExp = Application.ActiveExplorer  
 Set sExplorer = CreateObject("Redemption.SafeExplorer")  
 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 = MsgZoom  

End Sub  

Private Sub myOlExp_SelectionChange()  
On Error GoTo ErrHandler:  
 Set Msg = Application.ActiveExplorer.Selection(1)  
 Application.ActiveExplorer.RemoveFromSelection (Msg)  
 Application.ActiveExplorer.AddToSelection (Msg)  
 sExplorer.Item = Application.ActiveExplorer  
 Set Document = sExplorer.ReadingPane.WordEditor  
 Document.Windows.Item(1).View.Zoom.Percentage = MsgZoom  
Exit Sub  

ErrHandler:  
    Exit Sub

End Sub  

Answer 5

Я потрясен, что нет лучшего ответа для Outlook 2010 на Windows 7, поэтому я буду проверять еще раз. То, на чем я остановился, довольно скудно: с помощью функции «Упростить чтение на экране» в Windows 7 и установить общее увеличение до 125%. К сожалению, вы должны выйти из системы и снова войти в нее, чтобы увидеть эффект, который затрудняет эксперимент.

Эта функция доступна в Windows 7, щелкнув правой кнопкой мыши на рабочем столе, выбрав "Разрешение экрана", а затем щелкнув "Сделать текст и другие элементы больше или меньше" в нижней части. Есть также опция «Установить пользовательский размер текста (DPI)», но я не потратил время, чтобы попробовать это. Вы также можете получить доступ к этому диалоговому окну, введя "Упростить чтение" в поиске панели управления.

Я пробовал 150%, но это приводило к недопустимому ухудшению шрифтов в некоторых программах, таких как MATLAB. На уровне 125% я недоволен некоторыми эффектами, но вполне разумно читать мою электронную почту, не увеличивая каждое сообщение. С другой стороны, преодоление недостатков в одном приложении является большим недостатком, поэтому я думаю, что я могу просто переключиться в этот режим, когда у меня есть много писем для чтения, а затем переключиться обратно - несмотря на выход из системы и включение дважды!