3 paprasti būdai, kaip suspausti vaizdo priedus „Outlook“ el

Kai kam nors reikia nusiųsti kelis vaizdus kaip priedus, jei šie vaizdai yra per dideli, galbūt norėsite suspausti vaizdo priedus. Taigi, šiame straipsnyje mes išmokysime jus 3 patogių būdų tai įgyvendinti.

Kaip visi žinome, paprastai „Outlook“ išsiųsti didelį el. laišką užtrunka ilgiau. Pavyzdžiui, jei bandysite išsiųsti el. laišką su keliais dideliais vaizdų priedais, pamatysite, kad vaizdas įstrigo siuntimo dėžutėje, o „Outlook“ veikia gana vangiai. Norėdami išspręsti šią problemą, galite suspausti vaizdo priedus. Taigi, čia pristatysime 3 būdus, kaip tai pasiekti.

1 būdas: pakeiskite dydį pasirinkdami „Siųsti pašto gavėjui“

Jei norite tiesiogiai suglaudinti vaizdus prieš pridėdami juos prie „Outlook“ el. laiško, galite naudoti šį metodą.

1. Dėl astart, aplanke Windows pasirinkite vaizdus, ​​kuriuos norite pridėti.
2. Tada dešiniuoju pelės mygtuku spustelėkite juos ir kontekstiniame meniu pasirinkite „Siųsti“ > „Laiško gavėjas“.
3. Tada iššokančiajame dialogo lange „Pridėti failus“ pakeiskite „Paveikslėlio dydį“ pagal savo skonį.
4. Galiausiai spustelėkite mygtuką „Pridėti“.
5. Iš karto bus rodomas naujas laiškas, kuriame buvo pridėtos suspaustos nuotraukos.

Metodas 2: Zip Visi vaizdo priedai po pritvirtinimo

Jei pridėjote vaizdus prie el. laiško ir norite juos suspausti dabar, galite tiesiog suspausti juos į a zip failą. Čia pateikiami išsamūs žingsniai.

1. Pirmiausia palikite dabartinį el. laišką atidarytą.
2. Tada paspauskite „Alt + F11“, kad suaktyvintumėte „Outlook VBA“ redaktorių.
3. Tada į modulį įdėkite šį kodą.

Sub ZipImageAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Outlook.Attachment
    Dim i As Long
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
    MkDir (varTempFolder)
    varTempFolder = varTempFolder & "\"
 
    Set objMail = Outlook.Application.ActiveInspector.currentItem
    Set objAttachments = objMail.Attachments
    For i = objAttachments.Count To 1 Step -1
        Set objAttachment = objAttachments(i)
        If IsEmbedded(objAttachment) = False Then
           Select Case LCase(objFileSystem.GetExtensionName(objAttachment.FileName))
                  Case "jpg", "jpeg", "png", "bmp", "gif"
                        objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName)
                        objAttachment.Delete
           End Select
        End If
    Next
 
    varZipFile = objFileSystem.GetSpecialFolder(2).Path & "\Images.zip"
    Open varZipFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
  
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

    On Error Resume Next
    Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
       Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    On Error GoTo 0

    objMail.Attachments.Add varZipFile
End Sub

Function IsEmbedded(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.PropertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

4. Po to paspauskite „F5“ klavišų mygtukus.
5. Baigę makrokomandą, grįžkite į el. pašto langą.
6. Pamatysite, kad visi vaizdo priedai buvo konvertuoti į a zip failą, kaip parodyta toliau esančioje ekrano kopijoje.

3 būdas: automatinis dydžio keitimas prieš siunčiant el

Jei nenorite jų suspausti zip, galite sukonfigūruoti „Outlook“, kad prieš siųsdami automatiškai pakeistų didelių nuotraukų dydį.

1. Norėdami pradėti, dabartiniame laiške spustelėkite „Failas“ dešiniajame viršutiniame kampe.
2. Tada skirtuke „Informacija“ pasirinkite „Keisti didelių vaizdų dydį, kai siunčiu šį pranešimą“.
3. Galų gale tiesiog grįžkite prie pranešimo ir toliau kurkite jį savo nuožiūra.
4. Spustelėjus „Siųsti“, „Outlook“ automatiškai suglaudins vaizdus.
5. Išsiuntę galite jį patikrinti aplanke „Išsiųstos prekės“. Vaizdų dydžiai yra mažesni nei anksčiau.

Pataisykite sugadintą Outlook PST failą

Kaip visi žinome, kuo didesnis jūsų Outlook PST failas, tuo lengviau sugadinti "Outlook" failą. Todėl labai svarbu, kad Outlook duomenų failas visada būtų mažas. Tai galima padaryti ištrinant nenaudingus priedus, archyvuojant nereikalingus elementus ir pan. Be to, norėdami laiku gelbėti, turite pasiimti galingą PST taisymas įrankis, pvz DataNumen Outlook Repair. Tai gali padėti lengvai ištaisyti pažeistą PST failą.

Autoriaus įvadas:

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