Hvordan sletter man den aktuelt redigerede kladde uden at slette den originale e-mail i Outlook?

Microsoft Outlook 2013 og nyere versioner åbner som standard e-mail-svar i læseruden. Antag, at du svarer på en e-mail, og efter 3 minutter gemmer Outlook automatisk svaret som en kladde. Men så beslutter du dig for ikke at sende dette svar og slette kladden sammen med det. Nogle Outlook-brugere har en tendens til at klikke på knappen Slet under fanen Hjem for at slette kladden fra læseruden (se skærmbilledet nedenfor). Men denne handling sletter også den originale e-mail.

I dette selvstudium giver vi to VBA-koder til at hjælpe dig med at tilføje to kommandoer på værktøjslinjen Hurtig adgang til hurtigt at slette den aktuelt redigerede kladde uden at slette den originale e-mail i Outlook.

Slet den aktuelt redigerede kladde i læseruden
Slet den aktuelt redigerede kladde i et nyt vindue

Slet den aktuelle redigeringskladde i læseruden

Hvis du er vant til at svare på e-mails i læseruden, kan du anvende følgende VBA-kode til at slette den aktuelt redigerede kladde uden at slette den originale e-mail i Outlook.

1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet Project1 > Microsoft Outlook-objekter > Denne OutlookSession at åbne ThisOutlookSession (kode) vindue. Kopier derefter følgende VBA-kode til kodevinduet.

VBA-kode: Slet den aktuelt redigerede kladde i læseruden

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Gem koden, og tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.

Nu skal du bruge en knap for at køre makroen.

4. klik Tilpas værktøjslinjen Hurtig adgang > Flere kommandoer.

5. i Outlook Options dialogboks, skal du konfigurere som følger.

6. Hold scriptet valgt i den højre boks, og klik derefter på Ændre knap. I Rediger knap dialogboks, tildel en ny knap til scriptet og klik OK.

7. klik OK i Outlook Options dialogboks for at gemme ændringerne.

Den knap, du specificerede i trin 6, føjes derefter til Hurtig adgangs værktøjslinje.

8. Genstart Outlook for at aktivere koden.

Fra nu af, når du svarer på en e-mail i læseruden, kan du slette svaret sammen med kladden ved at klikke på knappen på værktøjslinjen Hurtig adgang.

Bemærk: Når du har kørt scriptet, skal du vælge en anden e-mail på postlisten for at opdatere e-mailvisningen i den aktuelle mappe.

Slet den aktuelt redigerede kladde i et nyt vindue

Hvis du kan lide at besvare e-mails i et nyt vindue. Følgende VBA-kode kan hjælpe med at slette svar-e-mailen sammen med kladden nemt i Outlook.

1. Start din Outlook, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Modul. Kopier derefter følgende VBA-kode til modulvinduet.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Tryk på andre + F11 at lukke Microsoft Visual Basic til applikationer vindue.

Nu skal du bruge en knap for at køre makroen.

4. klik Hjem > ny email for at oprette en ny e-mail. Klik på i meddelelsesvinduet Tilpas værktøjslinjen Hurtig adgang > Flere kommandoer.

5. Gentag derefter trinene ovenfor fra 5 til 7 for at oprette en knap til scriptet og tilføj det til Hurtig adgangs værktøjslinje af beskedvinduet.

Fra nu af, når du svarer på en e-mail i et nyt meddelelsesvindue, kan du slette dette svar sammen med kladden ved at klikke på knappen på værktøjslinjen Hurtig adgang.

Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

• Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
• BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
• Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
• Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
• Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.

Læs mere ... Hent nu...