Cum să extrageți automat imaginile încorporate din anumite e-mailuri primite prin Outlook VBA

Dacă doriți ca Outlook să extragă automat și să salveze imaginile încorporate din e-mailurile specifice primite, puteți consulta acest articol. Aici vă vom învăța cum să o realizați cu codul VBA.

Unii utilizatori au adesea nevoie să extragă imaginile încorporate din e-mailurile specifice primite și să le salveze într-un anumit folder Windows. Este atât de supărător să faci asta manual de fiecare dată. Prin urmare, mulți așteaptă cu nerăbdare să învețe o abordare rapidă și convenabilă pentru a permite Outlook să realizeze automat acest lucru. Acum, aici vă vom împărtăși o astfel de metodă.

Extrage automat imaginile încorporate din anumite e-mailuri primite

1. În primul rând, lansați programul Outlook ca de obicei.
2. Apoi, declanșați editorul Outlook VBA ca de obicei cu referința t „Cum să rulați codul VBA în Outlook".
3. Mai târziu, copiați și inserați următorul cod VBA în proiectul „ThisOutlookSession”.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Outlook.Attachment
    Dim strWindowsFolder As String
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Specify the emails as per your needs
       If objMail.Importance = olImportanceHigh Then
          Set objAttachments = objMail.Attachments
 
          'Specify the windows folder
          strWindowsFolder = "E:\" & objMail.Subject & Format(Now, "yymmddhhmmss")
          MkDir (strWindowsFolder)
 
          'Save all embedded images to the folder
          For i = 1 To objAttachments.Count
              Set objAttachment = objAttachments.Item(i)
              If IsEmbedded(objAttachment) = True Then
                 objAttachment.SaveAsFile strWindowsFolder & "\" & objAttachment.FileName
              End If
          Next
      End If
    End If
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

4. După aceea, faceți clic pe subrutina „Application_Startup”.
5. În cele din urmă, faceți clic pe tasta „F5” pentru a declanșa această macrocomandă.
6. De acum înainte, de fiecare dată când un anumit e-mail nou sosește în Inbox, imaginile încorporate vor fi salvate în folderul specific Windows, așa cum se arată în următoarea captură de ecran.

Curățați în mod regulat atașamentele mari

Este recomandabil să curățați în mod regulat atașamentele mari din Outlook. Scopul este de a menține fișierul Outlook la o dimensiune adecvată. Fișierele Outlook mai mari sunt mai susceptibile la corupere. După cum știți, daunele PST sunt destul de dificil de tratat corespunzător. Poate veți încerca mai întâi să le remediați prin intermediul instrumentului de reparare a inbox-ului. Cu toate acestea, în majoritatea cazurilor, nu va funcționa. Singura soluție este un specialist. reparație PST instrument, cum ar fi DataNumen Outlook Repair, sau servicii profesionale de recuperare relevante.

Introducerea autorului:

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