Kako izbrisati trenutno urejen osnutek, ne da bi izbrisal izvirno e-pošto v Outlooku?

Microsoft Outlook 2013 in novejše različice privzeto odprejo e-poštne odgovore v podoknu za branje. Recimo, da odgovarjate na e-pošto in po 3 minutah Outlook samodejno shrani odgovor kot osnutek. Toda potem se odločite, da ne boste poslali tega odgovora, in izbrišete osnutek skupaj z njim. Nekateri uporabniki Outlooka ponavadi kliknejo gumb Izbriši pod zavihkom Domov, da izbrišejo osnutek iz podokna za branje (glejte spodnji posnetek zaslona). Vendar to dejanje izbriše tudi izvirno e-pošto.

V tej vadnici nudimo dve kodi VBA, ki vam pomagata dodati dva ukaza v orodni vrstici za hitri dostop za hitro brisanje trenutno urejenega osnutka, ne da bi izbrisali izvirno e-pošto v Outlooku.

Izbrišite trenutno urejen osnutek v podoknu za branje
Izbrišite trenutno urejen osnutek v novem oknu

Izbrišite trenutno urejan osnutek v podoknu za branje

Če ste navajeni odgovarjati na e-pošto v podoknu za branje, lahko uporabite naslednjo kodo VBA, da izbrišete trenutno urejen osnutek, ne da bi izbrisali izvirno e-pošto v Outlooku.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Project1 > Predmeti Microsoft Outlook > Ta OutlookSession da odprete ThisOutlookSession (koda) okno. Nato kopirajte naslednjo kodo VBA v okno Koda.

Koda VBA: izbrišite trenutno urejen osnutek v podoknu za branje

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. Shranite kodo in pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Zdaj potrebujete gumb za zagon makra.

4. klik Prilagodite orodno vrstico za hitri dostop > Več ukazov.

5. V Ljubljani Outlook Možnosti pogovorno okno, morate konfigurirati na naslednji način.

5.1) V Izberite ukaze iz spustnega seznama izberite Makri;

5.2) Izberite makro, ki ste ga dodali v prejšnjem koraku;

5.3) Kliknite Dodaj , če želite dodati ta makro v Prilagodite orodno vrstico za hitri dostop škatla.

6. Skript pustite izbran v desnem polju in kliknite spreminjanje gumb. V Ljubljani Gumb za spreminjanje pogovornem oknu, skriptu dodelite nov gumb in kliknite OK.

7. klik OK v Outlook Možnosti pogovorno okno, da shranite spremembe.

Gumb, ki ste ga določili v koraku 6, je nato dodan v Orodna vrstica za hitri dostop.

8. Znova zaženite Outlook, da aktivirate kodo.

Odslej lahko, ko odgovarjate na e-pošto v podoknu za branje, izbrišete odgovor skupaj z osnutkom, tako da kliknete gumb v orodni vrstici za hitri dostop.

Opomba: Ko zaženete skript, morate izbrati drugo e-pošto na poštnem seznamu, da osvežite pogled pošte v trenutni mapi.

Izbrišite trenutno urejen osnutek v novem oknu

Če želite na e-pošto odgovarjati v novem oknu. Naslednja koda VBA lahko pomaga pri preprostem brisanju e-poštnega odgovora skupaj z osnutkom v Outlooku.

1. Zaženite Outlook, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Modul. Nato kopirajte naslednjo kodo VBA v okno modula.

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. Pritisnite druga + F11 zaprete Microsoft Visual Basic za aplikacije okno.

Zdaj potrebujete gumb za zagon makra.

4. klik Domov > nova elektronska pošta da ustvarite novo e-pošto. V oknu sporočila kliknite Prilagodite orodno vrstico za hitri dostop > Več ukazov.

5. Nato ponovite zgornje korake od 5 do 7, da ustvarite gumb za skript in ga dodajte v Orodna vrstica za hitri dostop sporočilnega okna.

Odslej lahko, ko odgovarjate na e-pošto v oknu za novo sporočilo, izbrišete ta odgovor skupaj z osnutkom, tako da kliknete gumb v orodni vrstici za hitri dostop.