Hoe het momenteel bewerkte concept te verwijderen zonder de originele e-mail in Outlook te verwijderen?
Microsoft Outlook 2013 en latere versies openen standaard e-mailantwoorden in het leesvenster. Stel dat u een e-mail beantwoordt en na 3 minuten slaat Outlook het antwoord automatisch op als concept. Maar dan besluit u dit antwoord niet te versturen en verwijdert u het concept mee. Sommige Outlook-gebruikers hebben de neiging om op de knop Verwijderen onder het tabblad Start te klikken om het concept uit het leesvenster te verwijderen (zie onderstaande schermafbeelding). Maar met deze actie wordt ook de oorspronkelijke e-mail verwijderd.
In deze zelfstudie bieden we twee VBA-codes om u te helpen twee opdrachten toe te voegen aan de werkbalk Snelle toegang om snel het momenteel bewerkte concept te verwijderen zonder de oorspronkelijke 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 om e-mails in het leesvenster te beantwoorden, kunt u de volgende VBA-code toepassen om het momenteel bewerkte concept te verwijderen zonder de oorspronkelijke e-mail in Outlook te verwijderen.
1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Project1 > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen ThisOutlookSession (code) venster. 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 Sub
3. Sla de code op en druk op anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
Nu heb je een knop nodig om de macro uit te voeren.
4. klikken Pas de werkbalk Snelle toegang aan > Meer opdrachten.
5. In de Outlook Opties dialoogvenster, moet u als volgt configureren.
6. Houd het script geselecteerd in het rechtervak en klik vervolgens op de wijzigen knop. In de Knop wijzigen dialoogvenster, wijs een nieuwe knop toe aan het script en klik op OK.
7. klikken OK in de Outlook Opties dialoogvenster om de wijzigingen op te slaan.
De knop die u in stap 6 hebt opgegeven, wordt vervolgens toegevoegd aan de Snelle toegangswerkbalk.
8. Start Outlook opnieuw om de code te activeren.
Vanaf nu kunt u bij het beantwoorden van een e-mail in het leesvenster het antwoord samen met het concept verwijderen door op de knop op de werkbalk Snelle toegang te klikken.
Opmerking: Nadat u het script heeft uitgevoerd, moet u een andere e-mail in de mailinglijst selecteren om de e-mailweergave in de huidige map te vernieuwen.
Verwijder het momenteel bewerkte concept in een nieuw venster
Als u e-mails in een nieuw venster wilt beantwoorden. De volgende VBA-code kan helpen om de antwoord-e-mail samen met het concept eenvoudig in Outlook te verwijderen.
1. Start uw Outlook, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. klikken 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 Sub
3. druk de anders + F11 om de te sluiten Microsoft Visual Basic voor toepassingen venster.
Nu heb je een knop nodig om de macro uit te voeren.
4. klikken Home > nieuwe e-mail om een nieuwe e-mail te maken. Klik in het berichtvenster op Pas de werkbalk Snelle toegang aan > Meer opdrachten.
5. Herhaal dan de bovenstaande stappen van 5 tot 7 om een knop voor het script te maken en voeg het toe aan de Snelle toegangswerkbalk van het berichtenvenster.
Vanaf nu kunt u bij het beantwoorden van een e-mail in een nieuw berichtvenster dit antwoord samen met het concept verwijderen door op de knop op de werkbalk Snelle toegang te klikken.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.