Hogyan mindig nyissa meg e-mailjeit egyéni nagyítási szinten az Outlook VBA segítségével

Alapértelmezés szerint az Outlook e-mailjei 100%-os nagyítási szinten vannak megnyitva. Ha azt szeretné, hogy e-mailjeit mindig egyéni nagyítási szinten, például 150%-ban nyissa meg, használhatja az ebben a cikkben ismertetett módszert.

Valójában az előző cikkemben "A nagyítási szint beállítása az Outlookban”, megtudhatja, hogyan állíthatja be a nagyítási szinteket mind az olvasópanelen, mind az Üzenet ablakban. A cikkben bemutatott módszerek azonban nem tudják rögzíteni az egyéni nagyítási szintet, nevezetesen az állandó maradást. A következő alkalommal automatikusan visszaáll az alapértelmezett beállításra. Ezért, ha mindig egyéni nagyítási szinten szeretné megnyitni az e-maileket, használhatja a következő megközelítést.

Mindig nyissa meg e-mailjeit egyéni nagyítási szinten

1. Először is, start az Outlook programot a szokásos módon.
2. Ezután a megjelenő Outlook ablakban nyomja meg az „Alt + F11” billentyűparancsokat.
3. Ezt követően belép a VBA szerkesztő ablakába, ahol elérheti a „ThisOutlookSession” projektet. Csak keresse meg a bal oldalon, és kattintson duplán a megnyitásához.
4. Ezután másolja be az alább felsorolt ​​VBA-kódot ebbe a projektablakba.

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. Ezt követően alá kell írnia ezt a kódot.

• Nyomja meg az „Eszközök” gombot az eszköztáron.
• Ezután válassza ki a „Digitális aláírás…” opciót a legördülő listából.
• Ezután a felugró párbeszédpanelen engedélyezze a digitális tanúsítványt.

6. Végül lépjen ki a jelenlegi „Microsoft Visual Basic for Applications” ablakból, és lépjen újratart az Outlook alkalmazásban az új VBA-projekt aktiválásához.
7. Azóta minden alkalommal, amikor megnyit egy e-mailt, amely nem egy új levél, az e-mail az Ön egyéni nagyítási szintjén jelenik meg, például a következő képen:

Védd meg az Outlookot az összeomlástól

Az Outlook adatfájl jelentősen érzékeny a sérülésekre. Így az Outlook adatainak védelme meglehetősen nehézkes feladat. Az Outlook adatfájlja körül számos veszély fenyeget, beleértve az e-mailben terjedő vírusokat, hardverhibákat, emberi hibákat és szoftverproblémákat. A PST-fájl azonnali megmentéséhez, amint az megsérül, javasoljuk, hogy tartson meg egy hatalmas javítóeszközt, mint pl. DataNumen Outlook Repair. Képes javítás Outlook problémákat, és hatékonyan állíthatja vissza a maximális Outlook-adatokat.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com