Ako vždy otvárať e-maily na vlastnej úrovni zväčšenia pomocou aplikácie Outlook VBA

E-mail programu Outlook sa predvolene otvára v 100% -nej miere priblíženia. Ak chcete svoj e-mail vždy otvárať na prispôsobenej úrovni priblíženia, napríklad 150%, môžete využiť metódu zdieľanú v tomto článku.

Vlastne v mojom predchádzajúcom článku „Ako upraviť úroveň zväčšenia v programe Outlook”, Môžete sa naučiť prostriedky na úpravu úrovní zväčšenia na table na čítanie aj v okne správy. Metódy zavedené v tomto článku však nemôžu upraviť pevnú úroveň vlastného zväčšenia, konkrétne zostať natrvalo. Nabudúce sa automaticky vráti do pôvodného nastavenia. Ak teda chcete e-mail vždy otvárať na vlastnej úrovni priblíženia, môžete použiť nasledujúci prístup.

Svoj e-mail vždy otvárajte na vlastnej úrovni zväčšenia

1. Najprv musíte spustiť program Outlook ako obvykle.
2. Potom v zobrazenom okne Outlooku stlačte klávesové skratky „Alt + F11“.
3. Následne sa dostanete do okna editora VBA, v ktorom máte prístup k projektu „ThisOutlookSession“. Stačí ho nájsť na ľavej strane a dvojitým kliknutím ho otvoríte.
4. Ďalej skopírujte kód VBA uvedený nižšie do tohto okna projektu.

Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

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

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

Private Sub objMail_Open(Cancel As Boolean)
    Dim objMailDocument As Word.Document
 
    'When opening an email which is not a new mail
    If Len(Trim(objMail.Subject)) <> 0 Then
       Set objMailDocument = objMail.GetInspector.WordEditor
       'Change "150" as per your desired zoom level
       objMailDocument.Windows(1).Panes(1).View.Zoom.Percentage = 150
    End If
End Sub

5. Potom by ste mali podpísať tento kód.

• Na paneli nástrojov stlačte tlačidlo „Nástroje“.
• Potom z rozbaľovacieho zoznamu vyberte možnosť „Digitálny podpis ...“.
• Ďalej v rozbaľovacom dialógovom okne povoľte digitálny certifikát.

6. Nakoniec zatvorte aktuálne okno „Microsoft Visual Basic for Applications“ a reštartujte aplikáciu Outlook, aby ste aktivovali nový projekt VBA.
7. Odvtedy sa vždy, keď otvoríte e-mail, ktorý nie je čerstvým novým e-mailom, zobrazí e-mail vo vašej vlastnej úrovni priblíženia, napríklad na nasledujúcom obrázku:

Bráňte program Outlook pred zlyhaním

Dátový súbor programu Outlook je značne náchylný na poškodenie. Je teda dosť náročná úloha chrániť vaše údaje programu Outlook. Okolo dátového súboru programu Outlook existuje množstvo hrozieb, vrátane vírusov prenášaných e-mailom, zlyhaní hardvéru, ľudských chýb a problémov so softvérom. Aby ste svoj súbor PST zachránili, akonáhle dôjde k jeho poškodeniu, odporúča sa uchovať si impozantný nástroj na opravu, ako napríklad DataNumen Outlook Repair, Je schopný opraviť Outlook problémy a efektívne obnoviť maximum údajov Outlooku.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S