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

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.

5.1) I Välj kommandon från rullgardinsmenyn, välj Makron;
5.2) Välj det makro du lade till i föregående steg;
5.3) Klicka på Lägg till för att lägga till detta makro i Anpassa snabbåtkomstverktygsfältet låda.

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.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (0)
Inga betyg än. Bli först med att betygsätta!
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser