Az Outlook e-mailben található összes kép csoportos átméretezése

Az Outlook nem illeszti automatikusan a beillesztett képeket az e-mail törzsében lévő szövegekhez. Ezért, ha úgy gondolja, hogy egyes beágyazott képek túl nagyok vagy kicsik, érdemes átméretezni őket. Ebből a cikkből megtudhatja, hogyan lehet tömegesen átméretezni őket.

Az Outlook programban, amikor egy képet beszúr egy e-mail törzsébe, és ha az túl nagy, akkor feltétlenül át kell méreteznie, amíg el nem illeszkedik a törzshöz. Ilyen körülmények között, ha több kép is van ebben az e-mailben, az egyenkénti kézi átméretezés biztosan nem jó ötlet. A továbbiakban megosztunk veled egy sokkal gyorsabb módszert, amellyel az Outlook e-mailben lévő összes képet kötegesen átméretezhetjük.

Az összes kép csoportos átméretezése e-mailben

1. A legelején el kell indítania az Outlook alkalmazást.
2. Ezután a megjelenő Outlook főablakában meg kell nyomnia az „Alt + F11” billentyűket.
3. Egyszerre belép a „Microsoft Visual Basic for Applications” ablakba.
4. Most egy nem használt modulhoz kell hozzáférnie, vagy egyszerűen be kell helyeznie egy újat.
5. Ezután másolja és illessze be a következő VBA-kódot ebbe a modulba.

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. Később a jobb felső sarokban található „X” ikonra kattintva kiléphet ebből az ablakból.
7. Ezt követően jobb, ha hozzáadja ezt az új VBA-projektet az Üzenetablak Gyorselérési eszköztárához a későbbi kényelem érdekében. Ezt az „Outlook Opciók” menüpontban érheti el.
8. Végül kipróbálhatod:

• Először is hozzon létre és írjon egy e-mailt a szokásos módon.
• Ezután illesszen be több képet ebbe az e-mailbe.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Egyszerre meg kell adnia a teljes méret egy százalékát, amelyre át szeretné méretezni a képeket.
• Az „OK” gomb megnyomása után az összes kép átméretezésre kerül.

Szerezzen be egy minősített javítószerszámot

Mivel az Outlook hajlamos a korrupcióra, ésszerű jó hírű és hatékony külső javítóeszközt tartani, mint pl. DataNumen Outlook Repair. Általában, amint találkozik az Outlook kárával, először is visszatérhet a postafiók javító eszköz. De ha ez is meghiúsul, a külső javítási segédprogram jól jöhet, és időben megmentheti az adatait.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com