Ga naar hoofdinhoud

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.

5.1) In de Kies opdrachten van vervolgkeuzelijst, selecteer macro's;
5.2) Selecteer de macro die u in de vorige stap hebt toegevoegd;
5.3) Klik op de Toevoegen knop om deze macro toe te voegen aan het Pas de werkbalk Snelle toegang aan doos.

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 ProBatch 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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations