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.
Bästa kontorsproduktivitetsverktyg
Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook
🤖 AI Mail Assistant: Instant proffs-e-postmeddelanden med AI-magi – ett klick för geniala svar, perfekt ton, flerspråkig behärskning. Förvandla e-post utan ansträngning! ...
📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP) / Schemalägg Skicka e-post / Auto CC/BCC enligt regler när du skickar e-post / Automatisk vidarebefordran (avancerade regler) / Lägg automatiskt till hälsning / Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...
📨 Email Management: Hämta enkelt e-postmeddelanden / Blockera bluff-e-postmeddelanden av ämnen och andra / Ta bort duplicerade e-postmeddelanden / Avancerad Sökning / Konsolidera mappar ...
📁 Bilagor Pro: Batch Spara / Batch lossa / Batchkomprimera / Automatisk sparning / Auto Lossa / Automatisk komprimering ...
🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis / Öka din Outlook-produktivitet med flikar / Minimera Outlook istället för att stänga ...
👍 Underverk med ett klick: Svara alla med inkommande bilagor / E-postmeddelanden mot nätfiske / 🕘Visa avsändarens tidszon ...
👩🏼🤝👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden / Dela upp en kontaktgrupp till individuella grupper / Ta bort påminnelser om födelsedag ...
Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.