Kako uvijek otvoriti svoju e-poštu u prilagođenoj razini zumiranja s programom Outlook VBA

Prema zadanim postavkama, Outlook e-pošta otvara se u razini zumiranja od 100%. Ako želite uvijek otvarati svoju e-poštu u prilagođenoj razini zumiranja, kao što je 150%, možete upotrijebiti metodu podijeljenu u ovom članku.

Zapravo, u mom prethodnom članku "Kako prilagoditi razinu zumiranja u programu Outlook”, možete naučiti kako prilagoditi razine zumiranja u oknu za čitanje iu prozoru s porukama. Međutim, metode predstavljene u tom članku ne mogu učiniti prilagođenu razinu zumiranja fiksnom, odnosno ostati trajnom. Automatski će se vratiti na zadanu postavku sljedeći put. Dakle, ako želite uvijek otvarati e-poštu u prilagođenoj razini zumiranja, možete koristiti sljedeći pristup.

Uvijek otvarajte svoju e-poštu u prilagođenoj razini zumiranja

1. Prvo, morate pokrenuti Outlook kao i obično.
2. Zatim, u prozoru programa Outlook koji se prikazuje, pritisnite tipke prečaca "Alt + F11".
3. Nakon toga ćete ući u prozor uređivača VBA u kojem možete pristupiti projektu “ThisOutlookSession”. Samo ga pronađite s lijeve strane i dvaput kliknite da biste ga otvorili.
4. Zatim kopirajte VBA kod naveden u nastavku u ovaj prozor projekta.

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. Nakon toga trebate potpisati ovaj kod.

• Pritisnite gumb "Alati" na alatnoj traci.
• Zatim odaberite opciju "Digitalni potpis..." s padajućeg popisa.
• Zatim u skočnom dijaloškom okviru omogućite digitalni certifikat.

6. Na kraju, zatvorite trenutni prozor "Microsoft Visual Basic for Applications" i ponovno pokrenite Outlook aplikaciju kako biste aktivirali novi VBA projekt.
7. Od tada, svaki put kada otvorite e-poštu koja nije nova pošta, e-pošta će se prikazati u vašoj prilagođenoj razini zumiranja, kao na sljedećoj slici:

Obranite Outlook od pada

Podatkovna datoteka programa Outlook znatno je osjetljiva na oštećenja. Stoga je prilično težak zadatak zaštititi svoje Outlook podatke. Postoje razne prijetnje oko vaše podatkovne datoteke programa Outlook, uključujući viruse koji se prenose e-poštom, kvarove hardvera, ljudske pogreške i probleme sa softverom. Kako biste spasili svoju PST datoteku čim pretrpi štetu, predlažemo da zadržite izvrstan alat za popravak, kao što je DataNumen Outlook Repair, U stanju je popraviti Outlook probleme i učinkovito oporaviti maksimalan broj Outlook podataka.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com