Kā vienmēr atvērt savu e-pastu pielāgotā tālummaiņas līmenī, izmantojot programmu Outlook VBA

Pēc noklusējuma Outlook e-pasts tiek atvērts 100% tālummaiņas līmenī. Ja vēlaties vienmēr atvērt e-pastu pielāgotā tālummaiņas līmenī, piemēram, 150%, varat izmantot šajā rakstā kopīgoto metodi.

Patiesībā manā iepriekšējā rakstā “Kā pielāgot tālummaiņas līmeni programmā Outlook”, Jūs varētu uzzināt, kā pielāgot tālummaiņas līmeņus gan lasīšanas rūtī, gan ziņojuma logā. Tomēr šajā rakstā ieviestās metodes nevar padarīt pielāgotu tālummaiņas līmeni fiksētu, proti, palikt pastāvīgu. Nākamreiz tas automātiski atgriezīsies pie noklusējuma iestatījuma. Tādējādi, ja vēlaties vienmēr atvērt e-pastu pielāgotā tālummaiņas līmenī, varat izmantot šādu pieeju.

Vienmēr atveriet savu e-pastu pielāgotā tālummaiņas līmenī

1. Pirmkārt, jums ir jāstartē Outlook programma kā parasti.
2. Pēc tam parādītajā Outlook logā nospiediet taustiņu saīsnes “Alt + F11”.
3. Pēc tam jūs nokļūsit VBA redaktora logā, kurā varēsit piekļūt projektam “ThisOutlookSession”. Vienkārši atrodiet to kreisajā pusē un veiciet dubultklikšķi, lai to atvērtu.
4. Pēc tam šajā projekta logā nokopējiet zemāk norādīto VBA kodu.

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. Pēc tam jums jāparaksta šis kods.

• Rīkjoslā nospiediet pogu “Rīki”.
• Pēc tam nolaižamajā sarakstā izvēlieties opciju “Digitālais paraksts…”.
• Pēc tam uznirstošajā dialoglodziņā iespējojiet digitālo sertifikātu.

6. Visbeidzot, aizveriet pašreizējo logu “Microsoft Visual Basic for Applications” un restartējiet Outlook lietojumprogrammu, lai aktivizētu jauno VBA projektu.
7. Kopš tā laika katru reizi, kad atverat e-pastu, kas nav jauns e-pasts, e-pasts tiks parādīts jūsu pielāgotajā tālummaiņas līmenī, piemēram, šāds attēls:

Aizsargājiet Outlook pret avāriju

Outlook datu fails ir ievērojami pakļauts bojājumiem. Tādējādi ir diezgan grūts uzdevums aizsargāt jūsu Outlook datus. Jūsu Outlook datu failā ir dažādi draudi, tostarp e-pastā izplatīti vīrusi, aparatūras kļūmes, cilvēku kļūdas un programmatūras problēmas. Lai izglābtu PST failu, tiklīdz tam tiek nodarīts kaitējums, tiek ieteikts saglabāt milzīgu labošanas rīku, piemēram, DataNumen Outlook Repair. Tas ir spējīgs labot Outlook problēmas un efektīvi atgūt maksimālos Outlook datus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar