Come rinominare o rimuovere automaticamente le e-mail più vecchie con gli stessi oggetti di quelle nuove in arrivo

Alcune persone sperano che Outlook possa controllare automaticamente gli oggetti delle e-mail precedenti quando arrivano nuove e-mail e rinominare o eliminare le e-mail precedenti se hanno gli stessi oggetti delle nuove e-mail. Ciò richiede l'utilizzo di Outlook VBA. Questo articolo ti aiuterà a raggiungerlo.

Devi aver ricevuto molte e-mail con lo stesso oggetto. È un po' problematico per te identificarli e distinguerli nella mailing list? O pensi che quelle e-mail più vecchie siano esattamente inutili per te? In tal caso, è necessario consentire a Outlook di scansionare e controllare automaticamente tutte le e-mail esistenti quando arrivano nuove e-mail. Quando ci sono messaggi di posta elettronica che hanno lo stesso oggetto del nuovo, Outlook può chiederti se rinominarli o eliminarli. Senza dubbio, Outlook non fornisce agli utenti questo tipo di funzionalità. Quindi, devi ricorrere a VBA. Qui vi esporremo i codici e le operazioni dettagliate.

Rinomina o rimuovi automaticamente le e-mail precedenti

1. Innanzitutto, puoi avviare Outlook e accedere alla scheda "Sviluppatore".
2. Quindi sarai in grado di trovare e fare clic sul pulsante "Visual Basic".
3. Dopo averlo colpito, accederai alla finestra dell'editor VBA. In esso, dovrai aprire il progetto "ThisOutlookSession".
4. Successivamente dovresti copiare e incollare i seguenti codici VBA al suo interno.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

5. Successivamente, ti verrà richiesto di firmare digitalmente questo codice. Premi "Strumenti"> "Firma digitale". Quindi, nella finestra di dialogo popup, puoi selezionare un certificato esistente. Se non è presente alcun certificato già pronto, è possibile utilizzare "Certificati digitali per progetti VBA" per crearne uno nuovo.
6. Successivamente, puoi uscire dalla finestra corrente e procedere alla modifica delle impostazioni della macro, consentendo solo macro firmate digitalmente.
7. Infine, puoi riavviare Outlook per attivare la nuova macro. D'ora in poi, quando arriveranno nuove email nella Posta in arrivo, Outlook controllerà automaticamente tutte le email già presenti.

• Se le vecchie e-mail hanno lo stesso oggetto della nuova, Outlook aggiungerà automaticamente il suffisso "(Vecchio)" all'oggetto dell'e-mail.
• E se le e-mail più vecchie sono state archiviate in Inbox per oltre 2 mesi, riceverai un messaggio che ti chiederà se desideri eliminarle, come nell'immagine qui sotto. È possibile selezionare "Sì" o "No" in base alle proprie esigenze.

 Corruzione del file di Outlook a causa di grandi dimensioni

Alcune persone non hanno l'abitudine di eliminare regolarmente gli elementi obsoleti in Outlook. Di conseguenza, il loro file di Outlook avrà dimensioni considerevoli, il che è assolutamente sconsigliabile. Questo perché un file di Outlook di grandi dimensioni è molto più vulnerabile di un file di piccole dimensioni. Una volta che il file si corrompe, lo strumento di riparazione integrato, Scanpst.exe, nella maggior parte dei casi risulterà inefficace. La soluzione ideale potrebbe essere una soluzione efficace e collaudata. strumento di riparazione PST di Outlook danneggiato, piace DataNumen Outlook Repair.

Introduzione dell'autore:

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