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

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 functie in het 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.


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties