Note: The other languages of the website are Google-translated. Back to English

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.

5.1) I Vælg kommandoer fra rulleliste, vælg Makroer;
5.2) Vælg den makro, du tilføjede i det foregående trin;
5.3) Klik på Tilføj knappen for at tilføje denne makro til Tilpas værktøjslinjen Hurtig adgang boks.

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.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder