Cum să vă deschideți întotdeauna e-mailul la un nivel de zoom personalizat cu Outlook VBA

În mod implicit, e-mailul Outlook este deschis la un nivel de zoom de 100%. Dacă doriți să vă deschideți întotdeauna e-mailul la un nivel de zoom personalizat, cum ar fi 150 %, puteți utiliza metoda împărtășită în acest articol.

De fapt, în articolul meu anterior „Cum să ajustați nivelul de zoom în Outlook”, puteți afla mijloacele de a regla nivelurile de zoom atât în ​​panoul de citire, cât și în fereastra Mesaj. Cu toate acestea, metodele introduse în acel articol nu pot face ca nivelul personalizat de zoom să fie fix, și anume să rămână permanent. Data viitoare va reveni automat la setarea implicită. Astfel, dacă doriți să deschideți întotdeauna e-mailul la un nivel de zoom personalizat, puteți utiliza următoarea abordare.

Deschideți întotdeauna e-mailul într-un nivel personalizat de zoom

1. În primul rând, trebuie să porniți programul Outlook ca de obicei.
2. Apoi, în fereastra Outlook care se afișează, apăsați comenzile rapide „Alt + F11”.
3. Ulterior, veți intra în fereastra editorului VBA, în care puteți accesa proiectul „ThisOutlookSession”. Găsiți-l în partea stângă și faceți dublu clic pentru a-l deschide.
4. Apoi, copiați codul VBA enumerat mai jos în această fereastră de proiect.

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. După aceea, ar trebui să semnați acest cod.

• Apăsați butonul „Instrumente” din bara de instrumente.
• Apoi, alegeți opțiunea „Semnătură digitală...” din lista verticală.
• Apoi, în caseta de dialog pop-up, activați un certificat digital.

6. În final, ieșiți din fereastra curentă „Microsoft Visual Basic for Applications” și reporniți aplicația Outlook pentru a activa noul proiect VBA.
7. De atunci, de fiecare dată când deschideți un e-mail care nu este un e-mail nou, e-mailul se va afișa în nivelul dvs. de zoom personalizat, ca în imaginea următoare:

Apărați Outlook împotriva blocării

Fișierul de date Outlook este considerabil susceptibil la deteriorare. Astfel, este o sarcină destul de grea să vă protejați datele Outlook. Există o varietate de amenințări în jurul fișierului de date Outlook, inclusiv viruși transmisi prin e-mail, defecțiuni hardware, erori umane și probleme de software. Pentru a vă salva fișierul PST de îndată ce acesta este deteriorat, se recomandă să păstrați un instrument de remediere formidabil, cum ar fi DataNumen Outlook Repair. Este capabil să repara Outlook probleme și recuperați maximum de date Outlook în mod eficient.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com