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 longa mensagem de e-mail, você pode querer pular ou mover o cursor para o final ou start do corpo da mensagem rapidamente à vontade. Por exemplo, você deseja verificar a assinatura do remetente, portanto, deve pular para o final. Em geral, você deve continuar rolando para baixo até chegar ao fim. Pode ser um pouco problemático. Portanto, aqui vamos oferecer um pedaço de código VBA para você, que pode ajudá-lo a pular para o final ou start apenas por um clique.
Ir rapidamente para o início ou fim do corpo da mensagem
- Logo no início, start seu 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() 'Só funciona se o e-mail atual estiver usando o editor de palavras Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor Se não (objWordDocument é nada) Então VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() Se não (objWordDocument não é nada) Então 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.
- Eventualmente, a partir de agora, você pode pular para o start ou final de um e-mail simplesmente clicando no botão na Barra de Ferramentas de Acesso Rápido, conforme a 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