Come estrarre automaticamente le immagini incorporate da specifiche e-mail in arrivo tramite Outlook VBA

Se desideri che Outlook estragga e salvi automaticamente le immagini incorporate dalle e-mail in arrivo specifiche, puoi fare riferimento a questo articolo. Qui ti insegneremo come realizzarlo con il codice VBA.

Alcuni utenti hanno spesso bisogno di estrarre le immagini incorporate dalle e-mail in arrivo specifiche e salvarle in una determinata cartella di Windows. È così fastidioso farlo manualmente ogni volta. Pertanto, molti non vedono l'ora di apprendere un approccio rapido e conveniente per consentire a Outlook di farlo automaticamente. Ora, qui condivideremo un tale metodo con te.

Estrazione automatica delle immagini incorporate da specifiche e-mail in arrivo

1. Innanzitutto, avvia il tuo programma Outlook come al solito.
2. Quindi, attiva l'editor VBA di Outlook come al solito con riferimento t "Come eseguire il codice VBA in Outlook".
3. Successivamente, copia e incolla il seguente codice VBA nel progetto "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. Dopodiché, fai clic sulla subroutine "Application_Startup".
5. Infine, fai clic sul tasto "F5" per attivare questa macro.
6. D'ora in poi, ogni volta che una specifica nuova email arriva nella Posta in arrivo, le immagini incorporate verranno salvate nella specifica cartella di Windows, come mostrato nello screenshot seguente.

Pulisci regolarmente gli allegati di grandi dimensioni

È consigliabile eliminare regolarmente gli allegati di grandi dimensioni da Outlook. L'obiettivo è mantenere il file di Outlook di dimensioni adeguate. Un file di Outlook di grandi dimensioni è più soggetto a danneggiamenti. Come sapete, i file PST danneggiati sono piuttosto difficili da riparare. Probabilmente proverete prima a ripararli con uno strumento di ripristino della posta in arrivo. Tuttavia, nella maggior parte dei casi, non funzionerà. L'unica soluzione è rivolgersi a uno specialista. Riparazione PST strumento, come DataNumen Outlook Repair, o servizi di recupero professionale pertinenti.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com