Kaip paketais ištrinti visus skaitymo kvitus programoje „Outlook“.

Norėdami patvirtinti, kad gavėjai perskaitė jūsų el. laišką, galite paprašyti perskaitymo patvirtinimo rašydami el. laišką. Tokiu atveju jūsų pašto dėžutė gali būti perpildyta tokių perskaitymo patvirtinimų. Šiame įraše sužinosite, kaip juos ištrinti visam laikui.

Perskaičius straipsnį "Kaip paketais ištrinti visus pristatymo kvitus programoje „Outlook“.“, galite pagalvoti apie tai, kaip masiškai ištrinti visus skaitymo kvitus. Tiesą sakant, akivaizdus skirtumas tarp dviejų rūšių kvitų yra jų temos. Pristatymo kvito temoje yra „Pristatyta“, bet skaitymo kvite yra „Skaityta“. Todėl tuo pačiu būdu galite ištrinti visus skaitymo kvitus. Toliau mes išsamiai išmokysime konkrečius veiksmus.

Paketas ištrinti visus skaitymo kvitus

1. Pradžioje paleiskite savo „Outlook“.
2. Tada eikite į „Outlook VBA“ redaktorių naudodami „Alt + F11“ pagal „Kaip paleisti VBA kodą „Outlook“.".
3. Tada naujame lange atidarykite tuščią modulį ir įdėkite į jį šį kodą.

Dim objOutlookFile As Outlook.Folder

Sub BatchDeleteAllReadReceipts()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
    Dim lTotalCount As Long
 
    lTotalCount = 0
   'Process all Outlook files
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder, lTotalCount)
            End If
        Next
    Next
 
    'Prompt you of the results
    MsgBox lTotalCount & " read receipts are deleted!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, lCount As Long)
    Dim i As Long
    Dim objDeliveryReceipt As Outlook.ReportItem
    Dim objSubfolder As Outlook.Folder
    Dim objDeletedItems As Outlook.Items
    Dim objItem As Object
 
    For i = objCurrentFolder.Items.Count To 1 Step -1
        'Find read receipts
        If (TypeOf objCurrentFolder.Items(i) Is ReportItem) And (Left(objCurrentFolder.Items(i).Subject, 5) = "Read:") Then
           Set objDeliveryReceipt = objCurrentFolder.Items.Item(i)
           objDeliveryReceipt.Delete
 
           lCount = lCount + 1
 
           'Permanently delete them
           Set objDeletedItems = objOutlookFile.Folders("Deleted Items").Items
           For Each objItem In objDeletedItems
               If (TypeOf objItem Is ReportItem) And (Left(objItem.Subject, 5) = "Read:") Then
                  objItem.Delete
               End If
           Next
         End If
    Next
 
    'Loop subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

4. Po to spustelėkite pirmąją paprogramę.
5. Galiausiai paspauskite mygtuką „F5“.
6. Iš karto makrokomanda ištrins visus skaitymo kvitus iš „Outlook“.
7. Kai jis baigsis, gausite raginimą apie rezultatą, kaip parodyta toliau pateiktoje ekrano kopijoje.
8. Šiuo metu galite patikrinti savo pašto aplankus. Visi skaitymo kvitai dingo.

Apsaugokite „Outlook“ duomenis

Nors „Outlook“ failas gali būti sugadintas, galime imtis veiksmų jį apsaugoti. Pavyzdžiui, turėtume išlaikyti mažo dydžio „Outlook“ failą, apsaugoti jį nuo kenkėjiškų veiksnių ir reguliariai kurti atsargines kopijas. Paskutinis, bet ne mažiau svarbus dalykas – geriau paruoškite galingą išorinį PST taisymo įrankį, pvz DataNumen Outlook Repair. Tai turės didelį poveikį remontui sugadintas Outlook failas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com