Sut i ddileu'r drafft sydd wedi'i olygu ar hyn o bryd heb ddileu'r e-bost gwreiddiol yn Outlook?

Mae Microsoft Outlook 2013 a fersiynau diweddarach yn agor atebion e-bost yn y cwarel darllen yn ddiofyn. Tybiwch eich bod yn ateb e-bost ac ar ôl 3 munud mae Outlook yn cadw'r ymateb fel drafft yn awtomatig. Ond yna rydych yn penderfynu peidio ag anfon yr ateb hwn a dileu'r drafft ynghyd ag ef. Mae rhai defnyddwyr Outlook yn tueddu i glicio ar y botwm Dileu o dan y tab Cartref i ddileu'r drafft o'r Cwarel Darllen (gweler y llun isod). Ond mae'r weithred hon hefyd yn dileu'r e-bost gwreiddiol.

Yn y tiwtorial hwn, rydym yn darparu dau god VBA i'ch helpu i ychwanegu dau orchymyn ar y Bar Offer Mynediad Cyflym i ddileu'r drafft sydd wedi'i olygu ar hyn o bryd yn gyflym heb ddileu'r e-bost gwreiddiol yn Outlook.

Dileu'r drafft sydd wedi'i olygu ar hyn o bryd yn y cwarel darllen
Dileu'r drafft sydd wedi'i olygu ar hyn o bryd mewn ffenestr newydd

Dileu'r drafft golygu presennol yn y cwarel darllen

Os ydych chi wedi arfer ymateb i e-byst yn y cwarel darllen, gallwch gymhwyso'r cod VBA canlynol i ddileu'r drafft sydd wedi'i olygu ar hyn o bryd heb ddileu'r e-bost gwreiddiol yn Outlook.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Project1 > Gwrthrychau Microsoft Outlook > SesiwnOutlook i agor y ThisOutlookSession (Cod) ffenestr. Yna copïwch y cod VBA canlynol i'r ffenestr Cod.

Cod VBA: Dileu'r drafft sydd wedi'i olygu ar hyn o bryd yn y cwarel darllen

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. Cadwch y cod a gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr mae angen botwm arnoch i redeg y macro.

4. Cliciwch Addasu Bar Offer Mynediad Cyflym > Mwy o Orchmynion.

5. Yn y Dewisiadau Outlook blwch deialog, mae angen i chi ffurfweddu fel a ganlyn.

5.1) Yn y Dewiswch orchmynion oddi wrth rhestr ostwng, dewiswch Macros;

5.2) Dewiswch y macro a ychwanegwyd gennych yn y cam blaenorol;

5.3) Cliciwch y Ychwanegu botwm i ychwanegu'r macro hwn i'r Addasu Bar Offer Mynediad Cyflym blwch.

6. Cadwch y sgript a ddewiswyd yn y blwch cywir, ac yna cliciwch ar y Addasu botwm. Yn y Addasu Botwm blwch deialog, aseinio botwm newydd i'r sgript a chliciwch OK.

7. Cliciwch OK yn y Dewisiadau Outlook blwch deialog i achub y newidiadau.

Yna caiff y botwm a nodwyd gennych yng ngham 6 ei ychwanegu at y Bar Offer Mynediad Cyflym.

8. Ailgychwyn Outlook i actifadu'r cod.

O hyn ymlaen, wrth ateb e-bost yn y cwarel darllen, gallwch ddileu'r ateb ynghyd â'r drafft trwy glicio ar y botwm ar y Bar Offer Mynediad Cyflym.

Nodyn: Ar ôl rhedeg y sgript, mae angen i chi ddewis e-bost arall yn y rhestr bostio i adnewyddu'r olwg post yn y ffolder gyfredol.

Dileu'r drafft sydd wedi'i olygu ar hyn o bryd mewn ffenestr newydd

Os hoffech ateb e-byst mewn ffenestr newydd. Gall y cod VBA canlynol helpu i ddileu'r e-bost ateb ynghyd â'r drafft yn hawdd yn Outlook.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwl. Yna copïwch y cod VBA canlynol i ffenestr y Modiwl.

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. Gwasgwch y Alt + F11 i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Nawr mae angen botwm arnoch i redeg y macro.

4. Cliciwch Hafan > Ebost Newydd i greu e-bost newydd. Yn y ffenestr neges, cliciwch Addasu Bar Offer Mynediad Cyflym > Mwy o Orchmynion.

5. Yna ailadroddwch y camau uchod o 5 i 7 i greu botwm ar gyfer y sgript a'i ychwanegu at y Bar Offer Mynediad Cyflym o'r ffenestr neges.

O hyn ymlaen, wrth ymateb i e-bost mewn ffenestr neges newydd, gallwch ddileu'r ateb hwn ynghyd â'r drafft trwy glicio ar y botwm ar y Bar Offer Mynediad Cyflym.