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 Home > 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.
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.