Slik endrer du størrelsen på alle bilder i Outlook-e-posten din

Outlook vil ikke automatisk tilpasse de innsatte bildene med tekstene i e-postteksten. Derfor, hvis du mener at noen innebygde bilder er for store eller små, kan det hende du ønsker å endre størrelsen på dem. Denne artikkelen vil lære deg en metode for å endre størrelsen på dem i bulk.

I Outlook, når du setter inn et bilde i brødteksten i en e-post, hvis det er for stort, må du absolutt skalere det til det passer til kroppen. Under disse omstendighetene, hvis det er flere bilder i denne e-posten, er det absolutt ikke en god idé å endre størrelsen én etter én manuelt. Nå, deretter, vil vi dele deg en mye raskere metode som kan endre størrelsen på alle bilder i en Outlook-e-post.

Endre størrelsen på alle bilder i en e-post

1. Helt i begynnelsen må du starte Outlook-applikasjonen.
2. Deretter, i hovedvinduet som vises i Outlook, bør du trykke på "Alt + F11"-tastene.
3. Med en gang vil du gå inn i vinduet "Microsoft Visual Basic for Applications".
4. Nå må du få tilgang til en modul som ikke er i bruk eller bare sette inn en ny.
5. Deretter bør du kopiere og lime inn følgende VBA-kode i denne modulen.

Sub BatchResizeAllPicturesInEmail()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim nPercentSize As Integer
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
                objMail.Display
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Enter the percent whcih you want to resize picture to
    nPercentSize = InputBox("Specify the percent of full size", "Resize Picture", 50)
 
    'Resize all the pictures in this email
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.ScaleHeight = nPercentSize
        objInlineShape.ScaleWidth = nPercentSize
    Next

    For Each objShape In objMailDocument.Shapes
        objShape.ScaleHeight PercentSize / 100, msoCTrue
        objShape.ScaleWidth PercentSize / 100, msoCTrue
    Next
End Sub

6. Senere kan du trykke på "X"-ikonet i øvre høyre hjørne for å gå ut av dette vinduet.
7. Deretter bør du legge til dette nye VBA-prosjektet i Quick Access Toolbar of Message-vinduet for fremtidig bekvemmelighet. Du kan oppnå det i "Outlook-alternativer".
8. Til slutt kan du få en sjanse:

• Først oppretter og skriver du en e-post som vanlig.
• Sett deretter inn flere bilder i denne e-posten.
• Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
• Med en gang vil du bli bedt om å angi en prosent av full størrelse, som du vil endre størrelsen på bildene til.
• Etter at du har trykket på "OK", vil alle bildene bli endret.

Få tak i et kvalifisert reparasjonsverktøy

Siden Outlook er utsatt for korrupsjon, er det fornuftig å ha et anerkjent og potent eksternt reparasjonsverktøy, som DataNumen Outlook Repair. Vanligvis, så snart du møter Outlook-skade, kan du først gå tilbake til verktøy for reparasjon av innboks. Men hvis det også mislykkes, vil det eksterne fikseringsverktøyet komme godt med og kan redde dataene dine i tide.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med