Kuidas alati Outlook VBA abil oma e-posti avada kohandatud suumitasemel

Outlooki lahendused September 29, 2025

Vaikimisi avatakse Outlooki meilid 100% suumi tasemel. Kui soovite oma meili alati avada kohandatud suumitasemel, näiteks 150%, saate kasutada selles artiklis jagatud meetodit.

Tegelikult minu eelmises artiklis "Kuidas Outlookis suumi taset reguleerida”, saate õppida, kuidas reguleerida suumitasemeid nii lugemispaanil kui ka sõnumiaknas. Kuid selles artiklis tutvustatud meetodid ei saa kohandatud suumi taset fikseerida, nimelt püsivaks jäämist. Järgmine kord naaseb see automaatselt vaikeseadetele. Seega, kui soovite meili alati kohandatud suumitasemel avada, võite kasutada järgmist lähenemisviisi.

Avage oma meil alati kohandatud suumitasemel Outlook VBA abil

Avage oma e-kiri alati kohandatud suumitasemel

  1. Esiteks peate oma Outlooki programmi tavapäraselt käivitama.
  2. Seejärel vajutage kuvatavas Outlooki aknas klahvikombinatsiooni Alt + F11.
  3. Seejärel pääsete VBA redaktori aknasse, kus pääsete juurde projektile „ThisOutlookSession”. Lihtsalt leidke see vasakult küljelt ja topeltklõpsake selle avamiseks.
  4. Järgmisena kopeerige sellesse projekti aknasse allpool loetletud VBA kood.
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

VBA kood – avage oma meili kohandatud suumitasemel

  1. Pärast seda peaksite sellele koodile alla kirjutama.
  • Klõpsake tööriistaribal nuppu "Tööriistad".
  • Seejärel valige ripploendist suvand „Digiallkiri…”.Digitaalne allkiri
  • Järgmisena lubage hüpikakna dialoogiboksis digitaalne sertifikaat.
  1. Lõpuks sulgege praegune „Microsoft Visual Basic for Applications” aken ja taaskäivitage Outlooki rakendus uue VBA-projekti aktiveerimiseks.
  2. Sellest ajast alates kuvatakse iga kord, kui avate meili, mis ei ole uus e-kiri, teie kohandatud suumitasemel, nagu järgmine pilt:Meil on avatud kohandatud suumi tasemel

Kaitske Outlooki krahhi eest

Outlooki andmefail on märkimisväärselt vastuvõtlik kahjustumisele. Seega on Outlooki andmete kaitsmine üsna vaevarikas ülesanne. Teie Outlooki andmefaili ümbritsevad mitmed ohud, sealhulgas meili teel levivad viirused, riistvararikked, inimlikud vead ja tarkvaraprobleemid. PST-faili päästmiseks niipea, kui see kahjustub, on soovitatav alles hoida võimas parandustööriist, näiteks DataNumen Outlook Repair. See on võimeline Outlooki parandamine probleeme ja taastada tõhusalt maksimaalsed Outlooki andmed.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud mdf ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.