Kaip visada atidaryti el. paštą pasirinktoje mastelio keitimo lygyje naudojant „Outlook VBA“.

Pagal numatytuosius nustatymus „Outlook“ el. paštas atidaromas 100 % mastelio lygiu. Jei norite visada atidaryti el. paštą pasirinktu mastelio lygiu, pvz., 150 %, galite naudoti šiame straipsnyje aprašytą metodą.

Tiesą sakant, mano ankstesniame straipsnyje „Kaip reguliuoti mastelio keitimo lygį programoje „Outlook“.“, galite sužinoti, kaip reguliuoti mastelio lygius tiek skaitymo srityje, tiek pranešimų lange. Tačiau šiame straipsnyje pateikiami metodai negali nustatyti tinkinto mastelio keitimo lygio, ty išlikti nuolatinio. Kitą kartą jis automatiškai grįš į numatytuosius nustatymus. Taigi, jei norite visada atidaryti el. laišką tinkintu mastelio lygiu, galite naudoti šį metodą.

Visada atidarykite el. paštą pasirinktame mastelio keitimo lygyje

1. Pirmiausia turite paleisti „Outlook“ programą kaip įprasta.
2. Tada rodomame „Outlook“ lange paspauskite „Alt + F11“ sparčiuosius klavišus.
3. Vėliau pateksite į VBA redaktoriaus langą, kuriame galėsite pasiekti projektą „ThisOutlookSession“. Tiesiog suraskite jį kairėje ir dukart spustelėkite, kad atidarytumėte.
4. Tada nukopijuokite toliau pateiktą VBA kodą į šį projekto langą.

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. Po to turėtumėte pasirašyti šį kodą.

• Įrankių juostoje paspauskite mygtuką „Įrankiai“.
• Tada išskleidžiamajame sąraše pasirinkite parinktį „Skaitmeninis parašas…“.
• Tada iššokančiajame dialogo lange įgalinkite skaitmeninį sertifikatą.

6. Galiausiai uždarykite dabartinį „Microsoft Visual Basic for Applications“ langą ir paleiskite „Outlook“ programą iš naujo, kad suaktyvintumėte naują VBA projektą.
7. Nuo tada kiekvieną kartą, kai atidarote el. laišką, kuris nėra naujas el. laiškas, el. laiškas bus rodomas pasirinktu mastelio lygiu, kaip šis vaizdas:

Apsaugokite „Outlook“ nuo gedimų

„Outlook“ duomenų failas yra labai jautrus sugadinimui. Taigi apsaugoti „Outlook“ duomenis yra gana sudėtinga užduotis. „Outlook“ duomenų faile yra įvairių grėsmių, įskaitant el. paštu perduodamus virusus, aparatinės įrangos gedimus, žmogaus klaidas ir programinės įrangos problemas. Norint išgelbėti jūsų PST failą, kai tik jis bus pažeistas, siūloma pasilikti didžiulį taisymo įrankį, pvz. DataNumen Outlook Repair. Tai sugeba pataisyti Outlook problemų ir efektyviai atkurti maksimalius „Outlook“ duomenis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com