Hur tar man bort det för närvarande redigerade utkastet utan att ta bort det ursprungliga e-postmeddelandet i Outlook?

Microsoft Outlook 2013 och senare versioner öppnar e-postsvar i läsrutan som standard. Anta att du svarar på ett e-postmeddelande och efter 3 minuter sparar Outlook automatiskt svaret som ett utkast. Men sedan bestämmer du dig för att inte skicka det här svaret och radera utkastet tillsammans med det. Vissa Outlook-användare tenderar att klicka på knappen Ta bort under fliken Hem för att ta bort utkastet från läsrutan (se skärmdump nedan). Men den här åtgärden tar också bort det ursprungliga e-postmeddelandet.

I den här handledningen tillhandahåller vi två VBA-koder som hjälper dig att lägga till två kommandon i verktygsfältet Snabbåtkomst för att snabbt ta bort det för närvarande redigerade utkastet utan att ta bort det ursprungliga e-postmeddelandet i Outlook.

Ta bort det för närvarande redigerade utkastet i läsrutan
Ta bort det för närvarande redigerade utkastet i ett nytt fönster

Ta bort det aktuella redigeringsutkastet i läsrutan

Om du är van att svara på e-postmeddelanden i läsrutan kan du använda följande VBA-kod för att radera det för närvarande redigerade utkastet utan att ta bort det ursprungliga e-postmeddelandet i Outlook.

1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer dubbelklicka Project1 > Microsoft Outlook-objekt > ThisOutlookSession att öppna ThisOutlookSession (kod) fönster. Kopiera sedan följande VBA-kod till kodfönstret.

VBA-kod: Ta bort det för närvarande redigerade utkastet i läsrutan

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. Spara koden och tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Nu behöver du en knapp för att köra makrot.

4. klick Anpassa snabbåtkomstverktygsfältet > Fler kommandon.

5. I Outlook-Val i dialogrutan måste du konfigurera enligt följande.

6. Behåll skriptet markerat i den högra rutan och klicka sedan på Ändra knapp. I Ändra-knapp dialogrutan, tilldela en ny knapp till skriptet och klicka OK.

7. klick OK i Outlook-Val dialogrutan för att spara ändringarna.

Knappen du angav i steg 6 läggs sedan till i Snabbåtkomstverktygsfält.

8. Starta om Outlook för att aktivera koden.

Från och med nu, när du svarar på ett e-postmeddelande i läsrutan, kan du ta bort svaret tillsammans med utkastet genom att klicka på knappen i verktygsfältet Snabbåtkomst.

Notera: Efter att ha kört skriptet måste du välja en annan e-post i e-postlistan för att uppdatera e-postvyn i den aktuella mappen.

Ta bort det för närvarande redigerade utkastet i ett nytt fönster

Om du vill svara på e-postmeddelanden i ett nytt fönster. Följande VBA-kod kan hjälpa till att enkelt radera svarsmeddelandet tillsammans med utkastet i Outlook.

1. Starta din Outlook, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modul. Kopiera sedan följande VBA-kod till modulfönstret.

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. tryck på andra + F11 att stänga Microsoft Visual Basic för applikationer fönster.

Nu behöver du en knapp för att köra makrot.

4. klick Hem > Ny E-post för att skapa ett nytt e-postmeddelande. Klicka på i meddelandefönstret Anpassa snabbåtkomstverktygsfältet > Fler kommandon.

5. Upprepa sedan stegen ovan från 5 till 7 för att skapa en knapp för skriptet och lägg till den i Snabbåtkomstverktygsfält i meddelandefönstret.

Från och med nu, när du svarar på ett e-postmeddelande i ett nytt meddelandefönster, kan du ta bort detta svar tillsammans med utkastet genom att klicka på knappen i verktygsfältet Snabbåtkomst.

Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

• Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
• BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
• Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
• Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
• Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.

Läs mer... Ladda ner nu...