
Beim Öffnen von Nachrichten in Outlook 2010 (ohne Verwendung des Lesebereichs) können Sie die Strg-Taste gedrückt halten und das Mausrad nach oben drehen, um die Nachricht zu vergrößern. Dies müssen Sie jedoch bei jedem Öffnen einer Nachricht tun.
Gibt es eine Möglichkeit, die Standardzoomstufe für Nachrichten festzulegen? Stellen Sie die Zoomstufe beispielsweise standardmäßig für jede Nachricht auf 150 % ein.
Andernfalls gibt esandereWie kann ich den Standardtext beim Lesen von Nachrichten vergrößern? (ohne die DPI-Einstellungen im Betriebssystem zu ändern)
Antwort1
Dies ist ein normales Verhalten für Outlook 2010. Zoomanpassungen werden nicht beibehalten. Sie haben nur die Möglichkeit, ein Makro zu erstellen, das beim Start ausgeführt wird, oder ein Add-In zur Zoomsteuerung zu verwenden.
So fügen Sie VBA hinzu, um die Zoomstufe beim Anwendungsstart festzulegen.
- Stellen Sie Ihre Makrosicherheit auf „Niedrig“ ein.
- Öffnen Sie den VB-Editor mit Alt+F11
- Erweitern Sie Project1, um anzuzeigen
ThisOutlookSession
- Fügen Sie das Makro ein in
ThisOutlooksession
- Setzen Sie einen Verweis auf Microsoft Word unter Extras, Verweise
- Klicken Sie in das
Application_Startup
Makro und drücken Sie dieRun
Taste, um es zu starten, ohne Outlook neu zu starten.
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
Hinweis: In der vorletzten Zeile legen Sie den Zoomprozentsatz fest. Ändern Sie ihn 150
in den gewünschten Prozentsatz.
Quelle -Anpassen der Zoom-Einstellung von Outlook in E-Mails
Antwort2
Ich habe ein Add-In namensHineinzoomenDadurch wird dem Menüband eine Schaltfläche hinzugefügt, mit der Sie den Zoom für alle geöffneten Nachrichten speichern können (Sie können ihn auch jederzeit ändern). Der einzige Nachteil ist, dass es sich um ein kostenpflichtiges Tool handelt.