Když chcete rychle vložit texty na konec docela dlouhé e-mailové zprávy, bude vám chvíli trvat, než se posunete dolů na konec. Tento článek odhalí metodu, která vám umožní rychle přejít na konec nebo začátek těla e-mailu prostřednictvím jazyka VBA.
Někdy si při prohlížení dlouhé e-mailové zprávy můžete přát mít možnost rychle přeskočit na konec nebo začátek těla zprávy nebo na ně přesunout kurzor. Například chcete zkontrolovat podpis odesílatele, takže musíte přeskočit na konec. Obecně musíte neustále posouvat dolů, dokud se nedostanete na konec. Může to být trochu problematické. Proto vám zde nabízíme kousek kódu VBA, který vám pomůže přeskočit na konec nebo začít pouhým jedním kliknutím.
Rychle přejděte na začátek nebo konec těla zprávy
- Hned na začátku spusťte program Outlook.
- Poté v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
- Dále vstoupíte do okna „Microsoft Visual Basic for Applications“.
- V tomto okamžiku musíte otevřít prázdný modul nebo přímo vložit nový.
- Následně byste měli zkopírovat a vložit následující kód VBA do takového okna modulu.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Funguje pouze v případě, že aktuální e-mail používá editor Word 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
- Poté je lepší přidat dva nové podprogramy na panel nástrojů Rychlý přístup v okně zprávy.
- Nejprve otevřete e-mail v okně Zpráva.
- Poté klikněte na šipku dolů na panelu nástrojů Rychlý přístup.
- Z rozevíracího seznamu byste měli vybrat „Další příkazy“.
- V dalším okně můžete přidat makra na panel nástrojů Rychlý přístup jako na následujícím snímku obrazovky:
- Nakonec klikněte na řadu „OK“ pro uložení změn.
- Nakonec můžete odteď přeskočit na začátek nebo konec e-mailu jednoduše kliknutím na tlačítko v panelu nástrojů Rychlý přístup, které je znázorněno na následujícím obrázku:
Co když je kompromitován soubor PST
Vzhledem k tomu, že soubor PST je náchylný k chybám a poškození, měli byste se snažit co nejlépe chránit svá data PST. Musíte například pravidelně zálohovat soubor PST. Navíc, aby se mohl vrátit poškozený PST data v čase, měli byste mít lepší nástroj v blízkosti, jako je DataNumen Outlook Repair. Specializuje se na řešení problémů PST a načítání dat PST.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server opravit a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com