Ako rýchlo previesť všetky vložené obrázky na prílohy v e-maile programu Outlook

Ak chcete rýchlo zmeniť všetky obrázky vložené v tele správy na e-mailové prílohy, nemusíte ich manuálne odstraňovať a znova pripájať. Stačí použiť časť kódu VBA, ktorá je uvedená v tomto článku.

Niekedy možno budete chcieť hromadne zmeniť všetky vložené obrázky na prílohy. Napríklad príliš veľa obrázkov v tele správy preruší vaše čítanie textov v tele. Preto ich chcete odstrániť z tela e-mailu a namiesto toho ich pridať ako prílohy. Môžete to samozrejme urobiť manuálne. Musí však byť šikovnejšie, ak to nejaké nástroje alebo kódy VBA dokážu naraz. Tu vám odhalíme takýto kód VBA.

Rýchlo preveďte všetky vložené obrázky na prílohy

1. V prvom rade spustite program Outlook.
2. Potom môžete prepnúť na kartu „Vývojár“ a stlačiť tlačidlo „Visual Basic“.
3. Ďalej sa dostanete do okna editora Outlook VBA.
4. Následne musíte nasledujúci kód VBA skopírovať do prázdneho modulu.

Sub TurnEmebeddedImagestoAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim strFile As String
    Dim i As Long
 
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End Select

    Set objAttachments = objMail.attachments
 
    'Create a temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    'Save all embedded images to temp folder
    For i = objAttachments.Count To 1 Step -1
        Set objAttachment = objAttachments.Item(i)
        If IsEmbedded(objAttachment) = True Then
           objAttachment.SaveAsFile strTempFolder & "\" & objAttachment.FileName
        End If
    Next
 
    'Add extracted images as attachments
    strTempFolder = strTempFolder & "\"
    strFile = Dir(strTempFolder)
 
    While Len(strFile) > 0
          objMail.attachments.Add (strTempFolder & strFile)
          strFile = Dir
    Wend
 
    'Remove embedded images from message body
    With objMail
        .BodyFormat = olFormatPlain
    End With
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.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

5. Potom by ste mali potvrdiť, že je váš Outlook nastavený na povolenie makier.
6. Voliteľne, ak to často požadujete, mali by ste lepšie pridať nové makro na Panel s nástrojmi Rýchly prístup pre budúcu pohodlnú kontrolu.
7. Nakoniec to môžete vyskúšať. Vyberte alebo otvorte e-mail a potom spustite makro kliknutím na tlačidlo nového makra na paneli s nástrojmi Rýchly prístup.
8. Všetky vložené obrázky sa okamžite zmenia na prílohy ako nasledujúca snímka obrazovky:

Triky na ochranu vašich cenných údajov z Outlooku

Ako všetci vieme, súbor Outlook PST je rovnako zraniteľný ako bežné súbory, napríklad dokumenty Word alebo tabuľky programu Excel. Preto by ste mali neustále sledovať všetky riziká týkajúce sa vášho súboru PST, ako sú vírusy alebo nesprávna manipulácia. Musíte si teda pravidelne zálohovať dáta pre svoj súbor PST. Ak si to môžete dovoliť, je rozumné držať sa robustného Oprava Outlook nástroj šikovný, ako DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane vymáhať mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S