Sådan åbnes altid din e-mail i et brugerdefineret zoomniveau med Outlook VBA

Som standard åbnes Outlook-e-mail i et zoomniveau på 100%. Hvis du altid ønsker at åbne din e-mail i et tilpasset zoomniveau, f.eks. 150%, kan du bruge metoden, der deles i denne artikel.

Faktisk i min tidligere artikel “Sådan justeres zoomniveauet i Outlook”, Kunne du lære, hvordan du justerer zoomniveauerne både i læseruden og i meddelelsesvinduet. Imidlertid kan metoderne introduceret i denne artikel ikke gøre det tilpassede zoomniveau fast, nemlig at forblive permanent. Det vender automatisk tilbage til standardindstillingen næste gang. Således, hvis du altid vil åbne e-mail i et tilpasset zoomniveau, kan du bruge følgende tilgang.

Åbn altid din e-mail i et brugerdefineret zoomniveau med Outlook VBA

Åbn altid din e-mail i et brugerdefineret zoomniveau

  1. Først skal du starte dit Outlook-program som normalt.
  2. Tryk derefter på "Alt + F11" -tastgenveje i det viste Outlook-vindue.
  3. Derefter kommer du ind i VBA-editorvinduet, hvor du kan få adgang til projektet “ThisOutlookSession”. Bare find den i venstre side, og dobbeltklik for at åbne den.
  4. Kopier derefter VBA-koden nedenfor i dette projektvindue.
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-kode - Åbn din e-mail i et brugerdefineret zoomniveau

  1. Derefter skal du underskrive denne kode.
  • Tryk på knappen "Værktøjer" i værktøjslinjen.
  • Vælg derefter "Digital signatur ..." fra rullelisten.Digital signatur
  • Derefter skal du aktivere et digitalt certifikat i pop op-dialogboksen.
  1. Endelig skal du afslutte det nuværende "Microsoft Visual Basic for Applications"-vindue og genstarte dit Outlook-program for at aktivere det nye VBA-projekt.
  2. Siden da, hver gang du åbner en e-mail, der ikke er en ny ny mail, vises e-mailen i dit brugerdefinerede zoomniveau, ligesom følgende billede:E-mail åbnet i brugerdefineret zoomniveau

Forsvar Outlook mod nedbrud

Outlook-datafilen er betydeligt modtagelig for skader. Således er det en ret besværlig opgave at beskytte dine Outlook-data. Der er en række trusler omkring din Outlook-datafil, herunder e-mail-bærede vira, hardwarefejl, menneskelige fejl og softwareproblemer. For at redde din PST-fil, så snart den lider skade, anbefales det at opbevare et formidabelt fix-værktøj, f.eks. DataNumen Outlook Repair. Det er i stand til reparere Outlook problemer og gendanne maksimale Outlook-data effektivt.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.