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

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.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir