Jeśli chcesz szybko wstawić tekst na końcu dość długiej wiadomości e-mail, przewinięcie do końca zajmie Ci trochę czasu. W tym artykule przedstawimy metodę, która umożliwia szybkie przejście do końca lub początku treści wiadomości e-mail za pośrednictwem VBA.
Czasami, przeglądając długą wiadomość e-mail, możesz chcieć szybko przeskoczyć do końca lub na początek treści wiadomości lub przesunąć kursor na nią. Na przykład, aby sprawdzić podpis nadawcy, musisz przeskoczyć na koniec. Zazwyczaj musisz przewijać w dół, aż dotrzesz do końca. Może to być nieco kłopotliwe. Dlatego poniżej przedstawiamy fragment kodu VBA, który pomoże Ci jednym kliknięciem przeskoczyć do końca lub rozpocząć czytanie.
Szybko przejdź do początku lub końca treści wiadomości
- Na samym początku uruchom program Outlook.
- Następnie w głównym oknie Outlooka naciśnij klawisze „Alt + F11”.
- Następnie przejdziesz do okna „Microsoft Visual Basic for Applications”.
- W tym momencie musisz otworzyć pusty moduł lub bezpośrednio włożyć nowy.
- Następnie należy skopiować i wkleić następujący kod VBA do takiego okna modułu.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Działa tylko wtedy, gdy bieżąca wiadomość e-mail jest tworzona przy użyciu edytora tekstu 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 Ustaw objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select Koniec Jeśli Koniec Podrzędny
- Następnie lepiej dodać dwa nowe podprogramy do paska narzędzi szybkiego dostępu okna wiadomości.
- Najpierw otwórz wiadomość e-mail w oknie wiadomości.
- Następnie kliknij strzałkę w dół na pasku narzędzi szybkiego dostępu.
- Z rozwijanej listy wybierz „Więcej poleceń”.
- W następnym oknie możesz dodać makra do paska narzędzi szybkiego dostępu, jak na poniższym zrzucie ekranu:
- Na koniec kliknij serię „OK”, aby zapisać zmiany.
- Od tej pory możesz przejść na początek lub koniec wiadomości e-mail, po prostu klikając przycisk na pasku narzędzi Szybki dostęp, jak pokazano na poniższym obrazku:
Co się stanie, jeśli plik PST zostanie naruszony?
Ze względu na to, że plik PST jest podatny na błędy i uszkodzenia, powinieneś starać się jak najlepiej chronić swoje dane PST. Na przykład musisz okresowo tworzyć kopię zapasową pliku PST. Co więcej, aby móc wrócić uszkodzony PST dane na czas, lepiej trzymać w pobliżu potężne narzędzie, takie jak DataNumen Outlook Repair. Specjalizuje się w rozwiązywaniu problemów PST i pobieraniu danych PST.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com