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