Jak szybko usunąć załączniki z wiadomości e-mail starszych niż określona data za pomocą programu Outlook VBA

Aby zachować mały rozmiar skrzynki pocztowej programu Outlook i zapobiec uszkodzeniu danych programu Outlook, zaleca się usuwanie załączników z wiadomości e-mail, które zostały odebrane lub wysłane określony czas temu. Ten artykuł pomoże Ci szybko to osiągnąć za pomocą programu Outlook VBA.

Jak wszyscy wiemy, przy większej skrzynce pocztowej programu Outlook dane programu Outlook staną się znacznie bardziej podatne na ataki. Dlatego przyzwyczajam się do usuwania załączników z przestarzałych wiadomości e-mail, które są starsze niż określona data, ponieważ zazwyczaj wcześniej zapisywałem te załączniki na dysku lokalnym. Ale trochę kłopotliwe jest to, że muszę dowiedzieć się, które e-maile są przestarzałe, a następnie ręcznie usunąć załączniki. Aby poprawić swoją efektywność, wymyślam rozwiązanie za pomocą Outlooka VBA.

Usuń załączniki z otrzymanych wiadomości e-mail starszych niż określona data

1. Na początek otwórz Outlooka i przejdź do zakładki „Programista”.
2. Następnie naciśnij przycisk „Visual Basic” w grupie „Code”.
3. Pojawi się nowe okno. W nim należy otworzyć nowy moduł i skopiować do niego następujące kody.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

4. Teraz możesz wyjść z bieżącego okna „Visual Basic” i przystąpić do dodawania makra do paska narzędzi szybkiego dostępu. Wykonaj poniższe kroki:

• Najpierw naciśnij strzałkę w dół na pasku narzędzi szybkiego dostępu i wybierz „Więcej poleceń” z rozwijanej listy.
• Następnie należy wybrać „Makra” w polu „Wybierz polecenia z”.
• Następnie wybierz właściwe makro i kliknij przycisk „Dodaj” na środku.
• Na koniec kliknij przycisk „OK”, aby go włączyć i wrócić do głównego okna programu Outlook.

5. W końcu możesz znaleźć i kliknąć przycisk na pasku narzędzi szybkiego dostępu. Załączniki w wiadomościach, które są starsze niż podana data, zostaną szybko usunięte.

Usuń załączniki z wysłanych wiadomości e-mail starszych niż określona data

Aby osiągnąć ten cel, możesz skopiować całe powyższe kody VBA, ale zmienić niektóre wiersze, postępując zgodnie z poniższymi uwagami:

1. Po pierwsze, zmień wszystkie „olInbox” na „olSentItemFolder” w kodach VBA.
2. Następnie zamień „Set olInbox = Session.GetDefaultFolder(olFolderInbox)” na:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Następnie zamień „intDatDiff = DateDiff(„d”, varItem.ReceivedTime, Now)” na:

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Eliminacja irytujących błędów programu Outlook

Jeśli korzystasz z programu Outlook od dłuższego czasu, częste błędy musiały stać się częstymi sprawami. Wiadomo, że nie można ich przewidzieć ani całkowicie się ich pozbyć. Co możesz zrobić, to po prostu postarać się jak najlepiej je rozwiązać. Na przykład użyj narzędzia do naprawy skrzynki odbiorczej, Scanpest.exe, aby napraw błąd e-mail programu Outlook. Ponadto musisz regularnie tworzyć kopię zapasową danych programu Outlook na wypadek nieoczekiwanej awarii.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa SQL Server uszkodzenie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com