3 Metode simple pentru a comprima atașamentele de imagini din e-mailul Outlook

Când trebuie să trimiteți mai multe imagini ca atașamente cuiva, dacă aceste imagini sunt prea mari, vă recomandăm să comprimați atașamentele de imagine. Așadar, în acest articol, vă vom învăța 3 mijloace la îndemână pentru a realiza acest lucru.

După cum știm cu toții, de obicei durează mai mult pentru a trimite un e-mail mare în Outlook. De exemplu, dacă încercați să trimiteți un e-mail cu mai multe atașamente de imagini mari, veți descoperi că imaginea este blocată în Căsuța de ieșire și Outlook este destul de lent. Pentru a rezolva această problemă, ceea ce puteți face este să comprimați atașamentele de imagine. Deci, aici vom introduce 3 abordări pentru a-l realiza.

Metoda 1: Schimbați dimensiunea prin „Trimite către destinatarul e-mailului”

Dacă doriți să comprimați imaginile direct înainte de a le atașa la un e-mail Outlook, puteți utiliza această metodă.

1. Pentru noitart, în folderul Windows, selectați imaginile de atașat.
2. Apoi, faceți clic dreapta pe ele și selectați opțiunea „Trimite către” > „Destinatar e-mail” din meniul contextual.
3. Apoi, în caseta de dialog pop-up „Atașați fișiere”, modificați „Dimensiunea imaginii” după bunul plac.
4. În cele din urmă, faceți clic pe butonul „Atașați”.
5. Imediat, se va afișa un nou e-mail, în care au fost atașate imaginile comprimate.

Metoda 2: Zip Toate imaginile atașate după atașare

Dacă ați atașat imaginile la un e-mail și doriți să le comprimați acum, puteți să le comprimați într-un zip fişier. Iată pașii detaliați.

1. În primul rând, păstrați e-mailul curent deschis.
2. Apoi, apăsați „Alt + F11” pentru a declanșa editorul Outlook VBA.
3. Apoi, introduceți următorul cod într-un modul.

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. După aceea, apăsați butoanele tastei „F5”.
5. Când macrocomanda se termină, reveniți la fereastra de e-mail.
6. Veți vedea că toate atașamentele de imagine au fost convertite în a zip fișier, așa cum se arată în următoarea captură de ecran.

Metoda 3: Redimensionare automată înainte de a trimite e-mailul

Dacă nu doriți să le comprimați zip, puteți configura Outlook să redimensioneze automat imaginile mari înainte de a le trimite.

1. Pentru început, în e-mailul curent, faceți clic pe „Fișier” în colțul din dreapta sus.
2. Apoi, pe fila „Informații”, selectați „Redimensionați imagini mari când trimit acest mesaj”.
3. În cele din urmă, întoarceți-vă la mesaj și continuați să-l compuneți după bunul plac.
4. Când faceți clic pe „Trimite”, Outlook va comprima automat imaginile.
5. După ce este trimis, îl puteți verifica în folderul „Articole trimise”. Dimensiunile imaginii sunt mai mici decât înainte.

Remediați fișierul PST corupt Outlook

După cum știm cu toții, cu cât fișierul Outlook PST este mai mare, cu atât mai ușor să fii corupt fișierul Outlook. Prin urmare, este esențial să păstrați întotdeauna fișierul de date Outlook în dimensiuni mici. Acest lucru poate fi realizat prin ștergerea atașamentelor inutile, arhivarea articolelor inutile și așa mai departe. În plus, pentru a oferi salvare în timp util, trebuie să puneți mâna pe un puternic Remediere PST instrument, cum ar fi DataNumen Outlook Repair. Vă poate ajuta să remediați cu ușurință fișierul PST compromis.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com