Esse é o comportamento normal do Outlook 2010; não retém ajustes de zoom. A única opção que você tem é criar uma macro que seja executada na inicialização ou usar um suplemento para controle de zoom.
Aqui está como adicionar o VBA para definir o nível de zoom na inicialização do aplicativo.
- Defina sua segurança de macro como Baixa.
- Abra o editor VB usando Alt + F11
- Expanda o Projeto 1 para mostrar
ThisOutlookSession
- Cole a macro em
ThisOutlooksession
- Definir uma referência ao Microsoft Word em Ferramentas, Referências
- Clique na macro
Application_Startup
e pressione o botãoRun
para inicie sem iniciar o 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: A segunda à última linha é onde você define a porcentagem de zoom. Altere o 150
para o percentual desejado.
Fonte - Ajustando a configuração de zoom do Outlook no e-mail