Kaip paketiniu būdu pakeisti visų „Outlook“ el. pašto nuotraukų dydį

„Outlook“ automatiškai nesuderins įterptų paveikslėlių su tekstais el. laiško tekste. Taigi, jei manote, kad kai kurios įterptos nuotraukos yra per didelės arba mažos, galbūt norėsite pakeisti jų dydį. Šiame straipsnyje sužinosite, kaip masiškai pakeisti jų dydį.

Programoje „Outlook“, kai į el. laiško tekstą įterpiate paveikslėlį, jei jis per didelis, turėsite pakeisti jo mastelį, kad jis atitiktų turinį. Esant tokioms aplinkybėms, jei šiame el. laiške yra kelios nuotraukos, rankiniu būdu keisti dydį po vieną tikrai nėra gera idėja. Dabar mes pasidalinsime jums daug greitesniu metodu, kuris gali pakeisti visų nuotraukų dydį „Outlook“ el.

Pakeiskite visų nuotraukų dydį el. paštu

1. Pačioje pradžioje turite paleisti „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange turėtumėte paspausti „Alt + F11“ klavišus.
3. Iš karto pateksite į „Microsoft Visual Basic for Applications“ langą.
4. Dabar turite pasiekti nenaudojamą modulį arba tiesiog įdėti naują.
5. Tada turėtumėte nukopijuoti ir įklijuoti šį VBA kodą į šį modulį.

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. Vėliau galite paspausti „X“ piktogramą viršutiniame dešiniajame kampe, kad išeitumėte iš šio lango.
7. Vėliau, kad būtų patogiau, geriau įtraukite šį naują VBA projektą į pranešimų lango greitosios prieigos įrankių juostą. Tai galite pasiekti „Outlook“ parinktyse.
8. Galų gale galite pabandyti:

• Pirmiausia sukurkite ir sukurkite el. laišką kaip įprasta.
• Tada į šį el. laišką įterpkite kelias nuotraukas.
• Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
• Iš karto turėsite įvesti procentą viso dydžio, iki kurio norite pakeisti paveikslėlių dydį.
• Kai paspausite „Gerai“, visų nuotraukų dydis bus pakeistas.

Gaukite kvalifikuotą remonto įrankį

Kadangi „Outlook“ yra linkusi į korupciją, protinga turėti patikimą ir galingą išorinį taisymo įrankį, pvz., DataNumen Outlook Repair. Paprastai, kai tik susiduriate su „Outlook“ žala, pirmiausia galite pasikartoti pašto dėžutės taisymo įrankis. Bet jei nepavyks, išorinė taisymo programa pravers ir gali laiku išgelbėti jūsų duomenis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com