Kako grupno promijeniti veličinu svih slika u vašoj Outlook e-pošti

Outlook neće automatski uklopiti umetnute slike s tekstovima u tijelu e-pošte. Stoga, ako mislite da su neke ugrađene slike prevelike ili male, možda ćete poželjeti da im promijenite veličinu. Ovaj članak će vas naučiti metodi za njihovu masovnu promjenu veličine.

U Outlooku, kada umetnete sliku u tijelo e-poruke, ako je prevelika, apsolutno ćete je morati skalirati dok ne stane u tijelo. Pod ovim okolnostima, ako u ovoj e-poruci postoji više slika, ručno mijenjanje veličine jedne po jedne sigurno nije dobra ideja. Sada, nakon toga, podijelit ćemo vam mnogo brži metod koji može grupno promijeniti veličinu svih slika u Outlook e-pošti.

Skupna promjena veličine svih slika u e-poruci

1. Na samom početku morate pokrenuti svoju Outlook aplikaciju.
2. Zatim, u glavnom prozoru programa Outlook, trebate pritisnuti tipke “Alt + F11”.
3. Odmah ćete ući u prozor „Microsoft Visual Basic za aplikacije“.
4. Sada morate pristupiti modulu koji nije u upotrebi ili jednostavno umetnuti novi.
5. Zatim biste trebali kopirati i zalijepiti sljedeći VBA kod u ovaj 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. Kasnije možete pritisnuti ikonu “X” u gornjem desnom uglu da izađete iz ovog prozora.
7. Nakon toga, bolje je da ovaj novi VBA projekat dodate na traku sa alatkama za brzi pristup prozora poruka za buduće pogodnosti. To možete postići u “Opcijama Outlook”.
8. Na kraju, možete probati:

• Prvo kreirajte i sastavite email kao i obično.
• Zatim umetnite više slika u ovaj email.
• Zatim kliknite na dugme makro na traci sa alatkama za brzi pristup.
• Od vas će se odmah tražiti da unesete postotak pune veličine u koju želite promijeniti veličinu slika.
• Nakon što pritisnete “OK”, veličina svih slika će biti promijenjena.

Nabavite kvalifikovani alat za popravku

Budući da je Outlook sklon korupciji, razumno je zadržati renomiran i moćan vanjski alat za popravak, kao što je DataNumen Outlook Repair. Obično, čim se suočite s oštećenjem Outlooka, prvo se možete vratiti na alat za popravku inboxa. Ali, ako i on ne uspije, pomoćni program za eksterno popravljanje će vam dobro doći i može spasiti vaše podatke na vrijeme.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com