2 hurtige tip til automatisk sletning af den originale e-mail efter besvarelse i Outlook

Nogle brugere foretrækker at slette den oprindelige e-mail efter at have besvaret den, idet svaret har indeholdt oplysningerne i den oprindelige e-mail. Denne artikel vil dele 2 hurtige midler til at realisere det automatisk.

Som standard er Outlook indstillet til automatisk at inkludere den originale besked i svaret. I dette tilfælde vil mange brugere gerne slette den originale besked og kun efterlade svaret i deres postkasse. Ikke alene kan dette holde deres postkasse i lille størrelse, men det kan også lade deres e-mails i orden. Hvis du er tilbageholdende med at slette de originale e-mails manuelt, kan du bruge følgende 2 tricks til at automatisere det.

Tip 1: Brug Quick Step

Outlook leveres med et oprindeligt hurtigt trin "Svar & Slet", som det følgende billede. Dette hurtige trin kan automatisk slette den originale besked og vise et svar, når du klikker på den.

Hvis du ikke kan finde dette hurtige trin, er det meget sandsynligt, at du har slettet det før ved et uheld. Du kan også genskabe det igen ved at følge nedenstående trin.

1. Klik først på knappen "Opret ny" i gruppen "Hurtige trin".
2. Derefter tildeles det et navn i pop op-dialogboksen, som “Svar & Slet”.
3. Vælg derefter "Svar" i afsnittet "Handlinger".
4. Klik derefter på knappen "Tilføj handling".
5. Og tilføj derefter handlingen "Slet besked".
6. Tryk endelig på knappen "Gem".

På denne måde skal du altid bruge dette hurtige trin til at svare på e-mails. Hvis du stadig ønsker at bruge standardknappen “Svar” i gruppen “Svar” for at opnå “Svar og slet”, kan du henvise til følgende midler.

Tip 2: Brug Outlook VBA

1. For det første skal du trykke på “Alt + F11” -tasten i Outlook.
2. Åbn derefter projektet “ThisOutlookSession” i det efterfølgende VBA-editorvindue.
3. Næste kopi og indsæt følgende VBA-koder i den.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    objMail.Delete
    'If you want to only delete the specific email when replying it
    'You can specify the condition of the email as per your needs
    'like the following lines
    'If (InStr(LCase(objMail.Subject), "test") > 0) Then
    ' objMail.Delete
    'End If
End Sub

4. Derefter skal du underskrive denne kode digitalt.
5. Derudover skal du huske at ændre dine Outlook-makroindstillinger for at tillade de digitalt signerede makroer.
6. Genstart endelig Outlook for at aktivere det nye VBA-projekt. Fra nu af vil den originale e-mail automatisk blive slettet, når du besvarer en e-mail ved at trykke på standardknappen "Svar".

Gendan dine kompromitterede Outlook-data

Hvis du støder pludselig Outlook skader uventet, skal du gøre dit bedste for at gendanne dine Outlook-data. Som sædvanlig er den bedste og mest enkle fremgangsmåde at hente fra sikkerhedskopier. Men hvis du ikke har en aktuel databackup, kan du også bruge et erfarent reparationsværktøj, som f.eks. DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com