3 лесни метода за компресиране на прикачени изображения във вашия имейл в Outlook

Когато трябва да изпратите няколко изображения като прикачени файлове на някого, ако тези изображения са твърде големи, може да искате да компресирате прикачените изображения. И така, в тази статия ще ви научим на 3 полезни начина да го осъзнаете.

Както всички знаем, обикновено отнема повече време за изпращане на голям имейл в Outlook. Например, ако се опитате да изпратите имейл с множество прикачени файлове с големи изображения, ще откриете, че изображението е заседнало в изходящата кутия и Outlook е доста бавен. За да разрешите този проблем, можете да компресирате прикачените изображения. И така, тук ще представим 3 подхода за постигането му.

Метод 1: Промяна на размера чрез „Изпращане до получателя на пощата“

Ако искате да компресирате изображенията директно, преди да ги прикачите към имейл на Outlook, можете да използвате този метод.

1. За катоtart, в папката на Windows изберете изображенията, които да прикачите.
2. След това щракнете с десния бутон върху тях и изберете „Изпрати до“> „Получател на поща“ от контекстното меню.
3. След това в изскачащия диалогов прозорец на „Прикачване на файлове“ променете „Размер на картината“ по ваш вкус.
4. Накрая щракнете върху бутона „Прикачи“.
5. Веднага ще се покаже нова поща, в която са прикачени компресираните снимки.

Метод 2: Zip Всички прикачени изображения след прикачване

Ако сте прикачили изображенията към имейл и искате да ги компресирате сега, можете просто да ги компресирате в zip файл. Ето подробните стъпки.

1. Първо, дръжте текущия имейл отворен.
2. След това натиснете „Alt + F11“, за да задействате редактора на Outlook VBA.
3. След това поставете следния код в модул.

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. След това натиснете бутоните на клавиша “F5”.
5. Когато макросът завърши, върнете се в прозореца на имейла.
6. Ще видите, че всички прикачени изображения са преобразувани в zip файл, както е показано на следващата екранна снимка.

Метод 3: Автоматично преоразмеряване преди изпращане на имейл

Ако не искате да ги компресирате zip, можете да конфигурирате Outlook за автоматично преоразмеряване на големи снимки преди изпращане.

1. Като начало в текущата поща щракнете върху „Файл“ в горния десен ъгъл.
2. След това в раздела „Информация“ изберете „Преоразмеряване на големи изображения, когато изпращам това съобщение“.
3. В крайна сметка просто се върнете към съобщението и продължете да го съставяте по желание.
4. Когато кликнете върху „Изпращане“, Outlook автоматично ще компресира изображения.
5. След като бъде изпратен, можете да го проверите в папката „Изпратени елементи“. Размерите на изображението са по-малки от преди.

Коригирайте корумпирания PST файл на Outlook

Както всички знаем, колкото по-голям е вашият PST файл на Outlook, толкова по-лесно е да се повреди файлът на Outlook. Следователно е от съществено значение винаги да поддържате файла с данни на Outlook с малък размер. Това може да се осъществи чрез изтриване на безполезни прикачени файлове, архивиране на ненужни елементи и така нататък. Освен това, за да осигурите своевременно спасяване, трябва да се сдобиете с мощен PST корекция инструмент, като DataNumen Outlook Repair. Тя може да ви помогне да поправите компрометирания PST файл с лекота.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com