Hoe verwijder je het momenteel bewerkte concept zonder de originele e-mail in Outlook te verwijderen?
Microsoft Outlook 2013 en latere versies openen antwoorden op e-mails standaard in het leesvenster. Stel dat je een e-mail beantwoordt en na 3 minuten slaat Outlook automatisch het antwoord op als een concept. Maar dan besluit je om dit antwoord niet te verzenden en verwijder je het concept. Sommige Outlook-gebruikers klikken op de knop Verwijderen onder het tabblad Start om het concept uit het Leesvenster te verwijderen (zie onderstaande schermafbeelding). Maar deze actie verwijdert ook de originele e-mail.
In deze tutorial bieden we twee VBA-codes aan om je te helpen twee commando's toe te voegen aan de Snelle Toegang-werkbalk om snel het momenteel bewerkte concept te 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 je gewend bent om e-mails te beantwoorden in het leesvenster, kun je de volgende VBA-code toepassen om het momenteel bewerkte concept te verwijderen zonder de originele e-mail in Outlook te verwijderen.
1. Open je Outlook, druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Dubbelklik in het Microsoft Visual Basic for Applications-venster op Project1 > Microsoft Outlook Objects > ThisOutlookSession om het venster ThisOutlookSession (Code) te openen. Kopieer vervolgens de volgende VBA-code naar het Code-venster.
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 de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.
Nu heb je een knop nodig om de macro uit te voeren.
4. Klik op Aanpassen Snelle Toegang-werkbalk > Meer Opdrachten.
5. Configureer in het dialoogvenster Outlook-opties als volgt.
6. Houd het script geselecteerd in het rechtervak en klik vervolgens op de knop Wijzigen. Wijs in het dialoogvenster Knop wijzigen een nieuwe knop toe aan het script en klik op OK.
7. Klik op OK in het dialoogvenster Outlook-opties om de wijzigingen op te slaan.
De knop die je in stap 6 hebt gespecificeerd, wordt dan toegevoegd aan de Snelle Toegang-werkbalk.
8. Herstart Outlook om de code te activeren.
Vanaf nu kun je bij het beantwoorden van een e-mail in het leesvenster het antwoord samen met het concept verwijderen door op de knop op de Snelle Toegang-werkbalk te klikken.
Opmerking: Na het uitvoeren van het script moet je een andere e-mail selecteren in de mailinglijst om de mailweergave in de huidige map te vernieuwen.
AI Mail Assistant in Outlook: Slimmere antwoorden, duidelijkere communicatie (één-klik magie!) GRATIS
Stroomlijn uw dagelijkse Outlook-taken met de AI Mail Assistant van Kutools voor Outlook. Deze krachtige tool leert uit uw eerdere e-mails om intelligente en nauwkeurige reacties te bieden, uw e-mailinhoud te optimaliseren en u te helpen berichten moeiteloos op te stellen en te verfijnen.
Deze functie ondersteunt:
- Slimme antwoorden: Ontvang reacties die zijn samengesteld uit uw eerdere gesprekken - afgestemd, precies en klaar voor gebruik.
- Verbeterde inhoud: Automatisch uw e-mailtekst verfijnen voor meer duidelijkheid en impact.
- Makkelijke samenstelling: Geef slechts trefwoorden op en laat AI de rest doen, met meerdere schrijfstijlen.
- Intelligente uitbreidingen: Breid uw gedachten uit met contextbewuste suggesties.
- Samenvatting: Krijg direct een beknopt overzicht van lange e-mails.
- Wereldwijde bereik: Vertaal uw e-mails eenvoudig in elke taal.
Deze functie ondersteunt:
- Slimme e-mailreacties
- Geoptimaliseerde inhoud
- Op trefwoorden gebaseerde concepten
- Intelligente inhoudsuitbreiding
- E-mailsamenvatting
- Meertalige vertaling
Het beste van alles is dat deze functie voor altijd volledig gratis is! Wacht niet langer — download AI Mail Assistant nu en geniet
Verwijder het momenteel bewerkte concept in een nieuw venster
Als je liever e-mails beantwoordt in een nieuw venster. De volgende VBA-code kan helpen om de antwoord-e-mail samen met het concept gemakkelijk te verwijderen in Outlook.
1. Open je Outlook, druk op de toetsen 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 Module-venster.
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 Microsoft Visual Basic for Applications-venster te sluiten.
Nu heb je 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 Aanpassen Snelle Toegang-werkbalk > Meer Opdrachten.
5. Herhaal vervolgens de stappen hierboven van 5 tot 7 om een knop voor het script te maken en deze toe te voegen aan de Snelle Toegang-werkbalk van het berichtvenster.
Vanaf nu kun je bij het beantwoorden van een e-mail in een nieuw berichtvenster dit antwoord samen met het concept verwijderen door op de knop op de Snelle Toegang-werkbalk te klikken.
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint