☰

Outlook 2010: establezca el nivel de zoom predeterminado para leer mensajes

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010
Outlook 2010: establezca el nivel de zoom predeterminado para leer mensajes

Al abrir mensajes en Outlook 2010 (sin usar el panel de lectura), puede mantener presionado el control y girar la rueda del mouse hacia arriba para acercar el mensaje, pero debe hacer esto cada vez que abra un mensaje.

¿Existe alguna forma de establecer el nivel de zoom predeterminado para los mensajes? Por ejemplo, establezca el nivel de zoom predeterminado en 150% para cada mensaje.

En su defecto, ¿hay alguna?otro¿Cómo puedo agrandar el texto predeterminado al leer mensajes? (sin cambiar la configuración de DPI en el sistema operativo)

Respuesta1

Este es un comportamiento normal para Outlook 2010; no retiene los ajustes de zoom. La única opción que tiene es crear una macro que se ejecute en el inicio o utilizar un complemento para el control del zoom.

A continuación se explica cómo agregar VBA para configurar el nivel de zoom al iniciar la aplicación.

  1. Configure la seguridad de su macro en Baja.
  2. Abra el editor VB usando Alt+F11
  3. Expanda Proyecto1 para mostrarThisOutlookSession
  4. Pegue la macro enThisOutlooksession
  5. Establecer una referencia a Microsoft Word en Herramientas, Referencias
  6. Haga clic en la Application_Startupmacro y presione el Runbotón para iniciarla sin reiniciar 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

Nota: La penúltima línea es donde configura el porcentaje de zoom. Cambie el 150al porcentaje que desee.

Fuente -Ajustar la configuración de Zoom de Outlook en el correo electrónico

Respuesta2

Encontré un complemento llamadoAcercarseque agrega un botón a la cinta para guardar el zoom de todos los mensajes que abres (también puedes cambiarlo cuando quieras). El único inconveniente es que es una herramienta paga.

información relacionada