Hoe verwijdert u het huidige concept zonder de originele e-mail in Outlook te verwijderen?
Microsoft Outlook 2013 en nieuwere versies openen e-mailantwoorden standaard in het leesvenster. Stel: u beantwoordt een e-mail en Outlook slaat uw antwoord na drie minuten automatisch op als concept. Vervolgens besluit u de reactie niet te verzenden en wilt u het concept verwijderen. Sommige Outlook-gebruikers klikken dan op de knop **Verwijderen** op het tabblad **Start** om het concept uit het leesvenster te verwijderen (zie onderstaande schermafbeelding). Maar let op: deze actie verwijdert niet alleen het concept, maar ook de originele e-mail.
In deze handleiding bieden we twee VBA-codes waarmee u twee opdrachten kunt toevoegen aan de werkbalk Snelle toegang, zodat u het momenteel bewerkte concept direct kunt verwijderen zonder de originele e-mail in Outlook te verwijderen.
Verwijder het momenteel bewerkte concept in het leesvenster
Verwijder het momenteel bewerkte concept in een nieuw venster
Verwijder het momenteel bewerkte concept in het leesvenster
Als u gewend bent e-mails te beantwoorden in het leesvenster, kunt u de volgende VBA-code gebruiken om het huidige concept te verwijderen zonder de originele e-mail in Outlook te wissen.
1. Start uw Outlook en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het venster Microsoft Visual Basic for Applications op Project1 > Microsoft Outlook-objecten > ThisOutlookSession om het venster ThisOutlookSession (Code) te openen. Kopieer vervolgens de volgende VBA-code naar het codevenster.
VBA-code: Verwijder het momenteel bewerkte concept in het leesvenster
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 Sub3. Sla de code op en druk op Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.
U hebt nu een knop nodig om de macro uit te voeren.
4. Klik op Werkbalk Snelle toegang aanpassen > Meer opdrachten.
5. Configureer het volgende in het dialoogvenster Outlook-opties.
6. Houd het script geselecteerd in het rechterdeelvenster en klik vervolgens op de knop Wijzigen. Selecteer in het dialoogvenster Knop wijzigen een nieuwe knop voor het script en klik op OK.
7. Klik op OK in het dialoogvenster Outlook-opties om de wijzigingen op te slaan.
De knop die u in stap 6 hebt opgegeven, wordt vervolgens toegevoegd aan de werkbalk Snelle toegang.
8. Start Outlook opnieuw op om de code te activeren.
Vanaf nu kunt u, wanneer u een e-mail beantwoordt in het leesvenster, het antwoord samen met het concept verwijderen door op de knop in de werkbalk Snelle toegang te klikken.
Opmerking: Selecteer na het uitvoeren van het script een andere e-mail in de e-maillijst om de e-mailweergave in de huidige map te vernieuwen.
AI Mail Assistant in Outlook: Slimmere antwoorden, helderder communicatie (magie met één klik!)
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert van uw eerdere e-mails om intelligente, nauwkeurige antwoorden te genereren, uw e-mailinhoud te optimaliseren en u moeiteloos te ondersteunen bij het opstellen en verbeteren van berichten.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld op basis van uw eerdere gesprekken — persoonlijk, nauwkeurig en direct klaar voor gebruik.
- Laat uw e-mailtekst automatisch verfijnen voor meer duidelijkheid en impact.
- Moeiteloos opstellen: Geef gewoon trefwoorden op en laat AI de rest doen, in meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten moeiteloos uit met contextbewuste suggesties.
- Samenvatting: Ontvang direct beknopte samenvattingen van lange e-mails.
- Wereldwijde reikwijdte: Vertaal uw e-mails moeiteloos naar elke gewenste taal.
Deze functie ondersteunt:
- Slimme e-mailantwoorden
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Vertaling in meerdere talen
a name="a2"> Verwijder het momenteel bewerkte concept in een nieuw venster
Als u e-mails liever beantwoordt in een nieuw venster, helpt de volgende VBA-code u het antwoord samen met het concept eenvoudig te verwijderen in Outlook.
1. Start uw Outlook en druk op Alt+F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module. Kopieer vervolgens de volgende VBA-code naar het modulevenster.
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 Sub3. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te sluiten.
U hebt nu een knop nodig om de macro uit te voeren.
4. Klik op Start > Nieuwe e-mail om een nieuwe e-mail te maken. Klik in het berichtvenster op Werkbalk Snelle toegang aanpassen > Meer opdrachten.
5. Herhaal vervolgens de bovenstaande stappen van 5 tot en met 7 om een knop voor het script te maken en deze toe te voegen aan de werkbalk Snelle toegang van het berichtvenster.
Vanaf nu kunt u, wanneer u een e-mail beantwoordt in een nieuw berichtvenster, dit antwoord samen met het concept verwijderen door op de knop in de werkbalk Snelle toegang te klikken.
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint