Quando você deseja inserir textos rapidamente no final de uma mensagem de e-mail bastante longa, levará algum tempo para rolar até o final. Este artigo irá expor um método que pode permitir que você pule rapidamente para o final ou início do corpo do e-mail via VBA.
Às vezes, ao visualizar uma mensagem de e-mail longa, você pode querer pular ou mover o cursor para o início ou o fim do corpo da mensagem rapidamente. Por exemplo, você quer verificar a assinatura do remetente e, portanto, precisa ir para o final. Normalmente, você teria que rolar a página para baixo até chegar ao final, o que pode ser um pouco trabalhoso. Por isso, oferecemos aqui um trecho de código VBA que permite pular para o início ou o fim com apenas um clique.
Ir rapidamente para o início ou fim do corpo da mensagem
- Para começar, abra o programa Outlook.
- Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
- Em seguida, você entrará na janela “Microsoft Visual Basic for Applications”.
- Neste ponto, você precisa abrir um módulo em branco ou inserir diretamente um novo.
- Posteriormente, você deve copiar e colar o seguinte código VBA em tal janela do módulo.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Funciona somente se o e-mail atual estiver usando o editor de texto Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- Depois disso, é melhor adicionar as duas novas sub-rotinas à barra de ferramentas de acesso rápido da janela de mensagem.
- Em primeiro lugar, abra um e-mail na janela Mensagem.
- Em seguida, clique na seta para baixo na Barra de Ferramentas de Acesso Rápido.
- Na lista suspensa, você deve selecionar “Mais comandos”.
- Na próxima janela, você pode adicionar as macros à barra de ferramentas de acesso rápido como na captura de tela a seguir:
- Por fim, clique em uma série de “OK” para salvar as alterações.
- A partir de agora, você poderá ir diretamente para o início ou para o fim de um e-mail clicando no botão da Barra de Ferramentas de Acesso Rápido, conforme mostrado na imagem a seguir:
E se o arquivo PST for comprometido
Devido ao fato de que o arquivo PST é suscetível a erros e corrupção, você deve tentar o seu melhor para proteger seus dados PST. Por exemplo, você deve fazer backup de seu arquivo PST periodicamente. Além disso, para poder voltar PST danificado dados a tempo, é melhor manter uma ferramenta poderosa por perto, como DataNumen Outlook Repair. É especializado em corrigir problemas de PST e recuperar dados de PST.
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 fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com