Hoe u het formaat van alle afbeeldingen in uw Outlook-e-mail batchgewijs kunt wijzigen

Outlook past de ingevoegde afbeeldingen niet automatisch aan de teksten in de hoofdtekst van de e-mail aan. Als u dus denkt dat sommige ingesloten afbeeldingen te groot of te klein zijn, kunt u het formaat ervan wijzigen. In dit artikel leert u een methode om het formaat ervan in bulk te wijzigen.

Wanneer u in Outlook een afbeelding in de hoofdtekst van een e-mail invoegt en deze te groot is, moet u deze absoluut schalen totdat deze in de hoofdtekst past. Als deze e-mail meerdere afbeeldingen bevat, is het onder deze omstandigheden zeker geen goed idee om het formaat één voor één handmatig aan te passen. Hierna zullen we u een veel snellere methode delen waarmee u het formaat van alle afbeeldingen in een Outlook-e-mail in batch kunt wijzigen.

Wijzig het formaat van alle afbeeldingen in een e-mail in batch

1. Helemaal aan het begin moet u uw Outlook-applicatie starten.
2. Vervolgens moet u in het weergegeven Outlook-hoofdvenster op de toetsknoppen "Alt + F11" drukken.
3. U komt meteen in het venster 'Microsoft Visual Basic for Applications'.
4. Nu moet u toegang krijgen tot een module die niet in gebruik is, of gewoon een nieuwe invoegen.
5. Vervolgens kopieert en plakt u de volgende VBA-code in deze module.

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. Later kunt u op het “X”-pictogram in de rechterbovenhoek klikken om dit venster te verlaten.
7. Vervolgens kunt u dit nieuwe VBA-project voor toekomstig gemak beter toevoegen aan de werkbalk Snelle toegang van het berichtenvenster. U kunt dit bereiken in de "Outlook-opties".
8. Uiteindelijk kun je een kans maken:

• Maak en stel eerst zoals gewoonlijk een e-mail op.
• Voeg vervolgens meerdere afbeeldingen in deze e-mail in.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• U moet meteen een percentage van de volledige grootte invoeren waarnaar u de afbeeldingen wilt vergroten/verkleinen.
• Nadat u op "OK" hebt gedrukt, worden alle afbeeldingen vergroot of verkleind.

Schaf een gekwalificeerd reparatiehulpmiddel aan

Omdat Outlook gevoelig is voor corruptie, is het verstandig om een ​​gerenommeerde en krachtige externe reparatietool te hebben, zoals DataNumen Outlook Repair. Normaal gesproken kunt u, zodra u met Outlook-schade wordt geconfronteerd, eerst terugkeren naar de inbox reparatieprogramma. Maar als het ook mislukt, kan het externe herstelhulpprogramma van pas komen en uw gegevens op tijd redden.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com