Si të konvertoni shpejt të gjitha imazhet e ngulitura në bashkëngjitje në emailin tuaj të Outlook

Nëse dëshironi të ndryshoni shpejt të gjitha fotografitë e ngulitura në trupin e mesazhit në bashkëngjitjet e postës elektronike, nuk keni nevojë t'i hiqni manualisht dhe t'i ribashkoni. Ju thjesht mund të përdorni pjesën e kodit VBA të ekspozuar në këtë artikull.

Ndonjëherë, mund të dëshironi t'i ktheni në grup të gjitha imazhet e integruara në bashkëngjitje. Për shembull, shumë foto në trupin e mesazhit do të ndërpresin leximin tuaj të teksteve në trup. Prandaj, ju dëshironi t'i hiqni ato nga trupi i emailit dhe t'i shtoni ato si bashkëngjitje. Sigurisht, ju mund ta bëni këtë me dorë. Por duhet të jetë më e dobishme nëse ndonjë mjet ose kod VBA mund ta marrë këtë me një lëvizje. Këtu do të zbulojmë një kod të tillë VBA për ju.

Konvertoni shpejt të gjitha imazhet e ngulitura në bashkëngjitje

1. Në radhë të parë, nisni programin tuaj Outlook.
2. Pastaj mund të kaloni në skedën "Zhvilluesi" dhe të shtypni butonin "Visual Basic".
3. Më pas do të futeni në dritaren e redaktuesit të Outlook VBA.
4. Më pas, duhet të kopjoni kodin e mëposhtëm VBA në një modul bosh.

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. Pas kësaj, ju duhet të konfirmoni që Outlook juaj është vendosur të lejojë makro.
6. Opsionale, nëse e kërkon shpesh këtë, është më mirë të shtoni makro të re në Shiritin e Veglave të Qasjes së Shpejtë për kontroll të përshtatshëm në të ardhmen.
7. Më në fund mund të provoni. Zgjidhni ose hapni një email dhe më pas ekzekutoni makron duke klikuar butonin e ri makro në shiritin e veglave të aksesit të shpejtë.
8. Menjëherë, të gjitha imazhet e ngulitura do të ndryshohen në bashkëngjitje si pamja e mëposhtme e ekranit:

Truket për të mbrojtur të dhënat tuaja të vlefshme të Outlook

Siç e dimë të gjithë, skedari PST i Outlook është po aq i cenueshëm si skedarët e zakonshëm, të tillë si dokumentet Word ose spreadsheets Excel. Prandaj, duhet të vazhdoni të shikoni për të gjitha rreziqet rreth skedarit tuaj PST, si viruset ose trajtimet e pahijshme. Kështu që ju duhet të bëni kopje rezervë të rregullt të të dhënave për skedarin tuaj PST. Gjithashtu, nëse mund ta përballoni atë, është e mençur të mbani një forcë të fortë Riparimi i parashikimeve mjet i dobishëm, si DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com