Jak ustawić powiększenie okienka odczytu Outlooka?

Wiem, że możemy używać Ctrl + kółka myszy do powiększania i pomniejszania, ale czy istnieje sposób na trwałe ustawienie domyślnego powiększenia dla okienka odczytu?

Wygląda na to, że ustawiony poziom powiększenia jest teraz ustawiony w programie Outlook 2016. Jeśli klikniesz numer powiększenia w prawym dolnym rogu okna programu Outlook, pojawi się okno dialogowe.

Wprowadź żądany poziom powiększenia i kliknij pole, aby zapisać preferencje. Walla! Spowoduje to wyleczenie wiadomości w okienku odczytu.

Wygląda na to, że ma to związek z ustawieniami DPI na komputerze, a także poziomem powiększenia ustawionym w Outlooku.

Jedną rzeczą może być zmiana rozmiaru tekstu w wiadomościach e-mail -

Dostosuj rozmiar czcionki dla zwykłych wiadomości tekstowych

W przypadku zwykłego tekstu możesz zmienić czcionkę wyświetlacza za pomocą

• Outlook 2007 i wcześniejsze:
  Narzędzia → Opcje… → karta Format poczty → przycisk Artykuły papiernicze i czcionki (lub tylko czcionki… w poprzednich wersjach programu Outlook)
• Outlook 2010:
  Plik → Opcje → sekcja Poczta → przycisk Artykuły papiernicze i czcionki

Źródło: Powiększ czcionkę w okienku odczytu - MSOutlook.info

Jak ustawić domyślny zoom dla przychodzących wiadomości e-mail w MS Outlook 2010:

• Start - Microsoft Office - Narzędzia i Microsoft Office - certyfikat cyfrowy dla Project VBA, utwórz certyfikat o nazwie, na przykład Zoom
• Uruchom program Outlook
• Plik - Opcje - Centrum zaufania - Ustawienia Centrum zaufania - Opcje, wybierz Makra lub „powiadomienie dla wszystkich makr” lub „powiadomienie dla makr podpisanych cyfrowo, wszystkie makra niepodpisane są wyłączone”
• Alt+F11 - uruchom edytor VBA
• W lewym górnym oknie kliknij Projekt, Obiekt MS Outlook i kliknij dwukrotnie ThisOutlookSession
• Po prawej stronie otwiera się okno (View.Zoom.Percentage = 150 - scale domyślnie)
• Narzędzia - Referencje, sprawdź bibliotekę obiektów Microsoft Word 14.0
• F5 - wymyśl nazwę, na przykład „Powiększ - Utwórz”
• Narzędzia - podpis cyfrowy: wybierz podpis, który wcześniej utworzyliśmy, o nazwie Zoom
• Plik - zapisz
• Alt+Q
• Uruchom ponownie program Outlook
• Zostanie wyświetlone okno z prośbą o dodanie do certyfikatu strefy zaufanej.

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

Jestem zszokowany, że nie ma lepszej odpowiedzi dla programu Outlook 2010 w systemie Windows 7, więc sprawdzę ponownie. To, na co się zdecydowałem, jest dość kiepskie: korzystanie z funkcji „Ułatw sobie czytanie tego, co znajduje się na ekranie” w systemie Windows 7 i ustawienie ogólnego powiększenia na 125%. Niestety musisz się wylogować i zalogować ponownie, aby zobaczyć efekt, co sprawia, że ​​eksperymentowanie jest uciążliwe.

Ta funkcja jest dostępna w systemie Windows 7 poprzez kliknięcie prawym przyciskiem na pulpicie, wybranie „Rozdzielczości ekranu”, a następnie kliknięcie „Powiększ lub zmniejsz tekst i inne elementy” u dołu. Istnieje również opcja „Ustaw niestandardowy rozmiar tekstu (DPI)”, ale nie poświęciłem czasu na wypróbowanie go. Możesz również uzyskać dostęp do tego okna dialogowego, wpisując „Ułatwiaj czytanie” w wyszukiwaniu w panelu sterowania.

Próbowałem 150%, ale spowodowało to niedopuszczalną degradację czcionek w niektórych programach, takich jak MATLAB. Przy 125% jestem niezadowolony z niektórych efektów, ale sprawiedliwe jest, aby móc czytać e-maile bez powiększania każdej wiadomości. Z drugiej strony pokonanie braków w jednej aplikacji jest dużym minusem, więc myślę, że mogę po prostu przełączyć się na ten tryb, gdy mam dużo wiadomości e-mail do przeczytania, a potem z powrotem - pomimo dwukrotnego wylogowania!

Szukałem rozwiązania, które mogłoby pomóc w tym również w programie Outlook 2013 i właśnie natknąłem się na komercyjny dodatek innej firmy, aby pomóc w tym o nazwie „Zoom Email Windows Add-In” z http://www.sperrysoftware.com/ outlook / zoom-email-windows.asp .

Właśnie zainstalowałem wersję próbną w programie Outlook 2013 32bit i działa ona dla mnie dobrze, tzn. Automatycznie ustawia wartość powiększenia w okienku odczytu na to, co skonfigurowałem. Chciałem to zasugerować, jeśli nadal szukasz rozwiązania.

tutaj jest zaktualizowany kod VBA programu Outlook, który zmienia rozmiar zarówno otwartych wiadomości, jak i okienka odczytu. Microsoft zablokował dostęp do parametru Zoom, więc będziesz musiał najpierw zainstalować sterowniki Redemption ( http://www.dimastr.com/redemption/home.htm ), a następnie w obszarze VBA Tools / References aktywować „Microsoft Word 15.0 Object Library” i „ Redemption Outlook and MAPI COM Library ”. wklej i uruchom poniższy kod, powiększenie jest ustawione na stałą 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  

Wszędzie kopałem wszędzie, aby znaleźć sposób na to, i natknąłem się na to przez przypadek.

W kliencie programu Outlook, w prawym dolnym rogu okienka programu Outlook znajduje się suwak powiększenia. Kliknij numer obok paska. Pojawi się nowe okno dialogowe, które pozwala wybrać poziom powiększenia lub wpisać poziom niestandardowy. U dołu znajduje się pole wyboru z napisem „Zapamiętaj moje preferencje”. Kilka razy zamknąłem i uruchomiłem ponownie program Outlook i do tej pory wydaje się, że trzymam się ustalonego poziomu.

Nie mam pojęcia, dlaczego stwardnienie rozsiane nie może dać prostej odpowiedzi na to, ale w końcu znalazłem to na własną rękę.