Como personalizar o tamanho e a posição da janela de notas do Outlook com VBA

Quando você abre uma nota, a janela da nota sempre será aberta em tamanho pequeno e localizada perto do canto superior esquerdo da janela do Outlook. Você pode querer personalizar o tamanho e a posição da janela de notas. Agora, este artigo irá ajudá-lo a alcançá-lo.

Por padrão, a janela de notas do Outlook é sempre aberta em tamanho reduzido. No entanto, na maioria das vezes, o conteúdo da nota é bastante extenso. Nesses casos, é necessário ajustar o tamanho manualmente. Além do tamanho da janela, a posição dela também é um problema. A janela de notas geralmente fica localizada perto do canto superior esquerdo. A maioria dos usuários prefere que ela fique centralizada. Resumindo, muitos usuários gostariam de personalizar o tamanho e a posição da janela de notas. Portanto, aqui compartilharemos uma maneira de fazer isso.

Personalize o tamanho e a posição da janela de notas do Outlook

1. No início, inicie seu aplicativo Outlook.
2. Em seguida, pressione “Alt + F11” para acionar o editor VBA do Outlook.
3. Na janela “Microsoft Visual Basic for Applications” subsequente, copie o seguinte código para o projeto “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objNoteInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is NoteItem Then
       Set objNoteInspector = Inspector
    End If
End Sub

'When a Note window opens
Private Sub objNoteInspector_Activate()
    With objNoteInspector
         .WindowState = olNormalWindow
         '".Height" and ".Width" used to customize the size of Note Window
         .Height = 300
         .Width = 600
         '".Left" and ".Top" used to specify the position of Note Window
         .Left = 200
         .Top = 200
    End With
End Sub

Observação: Modifique os valores de “Altura”, “Largura”, “Esquerda” e “Topo” ao seu gosto com base nos comentários do código.

4. Em seguida, mova o cursor para a sub-rotina “Application_Startup”.
5. Por fim, pressione o botão da tecla “F5” para ativar a nova macro.
6. A partir de agora, toda vez que você abrir uma nota, sua janela será exibida no tamanho e posição personalizados, conforme mostrado na captura de tela a seguir.

Resolver problemas perturbadores do Outlook

Talvez você já tenha enfrentado diversos problemas com o Outlook, desde pequenas mensagens de erro insignificantes até desastres catastróficos com a perda de dados. Diante disso, quais medidas você tomaria? Sinceramente, os problemas menores podem ser facilmente resolvidos desativando suplementos de terceiros, iniciando em modo de segurança ou recriando perfis de e-mail, etc. No entanto, se o problema for grave, é preciso tomar medidas mais drásticas. Corrupção do Outlook, você tem que recorrer a uma ferramenta de reparo. Você pode primeiro tentar o utilitário interno. Se falhar, não desanime. É hora de chamar uma ferramenta externa mais robusta, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server reparar e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com