Conas an dréacht atá curtha in eagar faoi láthair a scriosadh gan an ríomhphost bunaidh in Outlook a scriosadh?

Osclaíonn Microsoft Outlook 2013 agus leaganacha níos déanaí freagraí ríomhphoist sa phána léitheoireachta de réir réamhshocraithe. Cuir i gcás go bhfuil tú ag tabhairt freagra ar ríomhphost agus tar éis 3 nóiméad sábhálann Outlook an freagra mar dhréacht go huathoibríoch. Ach ansin socraíonn tú gan an freagra seo a sheoladh agus an dréacht a scriosadh in éineacht leis. Is gnách le roinnt úsáideoirí Outlook cliceáil ar an gcnaipe Scrios faoin táb Baile chun an dréacht a scriosadh ón bPána Léitheoireachta (féach an scáileán thíos). Ach scriosann an gníomh seo an ríomhphost bunaidh freisin.

Sa teagasc seo, cuirimid dhá chód VBA ar fáil chun cabhrú leat dhá ordú a chur ar an Barra Uirlisí Rochtana Tapa chun an dréacht atá curtha in eagar faoi láthair a scriosadh go tapa gan an ríomhphost bunaidh a scriosadh in Outlook.

Scrios an dréacht atá curtha in eagar faoi láthair sa phána léitheoireachta
Scrios an dréacht atá curtha in eagar faoi láthair i bhfuinneog nua

Scrios an dréacht atá curtha in eagar faoi láthair sa phána léitheoireachta

Má tá taithí agat ar ríomhphoist a fhreagairt sa phána léitheoireachta, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun an dréacht atá curtha in eagar faoi láthair a scriosadh gan an ríomhphost bunaidh a scriosadh in Outlook.

1. Seoladh do Outlook, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte Project1 > Microsoft Outlook Object > ThisOutlookSession a oscailt ThisOutlookSession (Cód) fuinneoige. Ansin cóipeáil an cód VBA seo a leanas chuig an bhfuinneog Cód.

Cód VBA: Scrios an dréacht atá curtha in eagar faoi láthair sa phána léitheoireachta

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. Sábháil an cód agus brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Anois tá cnaipe ag teastáil uait chun an macra a rith.

4. cliceáil Saincheap Barra Uirlisí Rochtana Tapa > Tuilleadh Orduithe.

5. Sa Roghanna Outlook bosca dialóige, ní mór duit a chumrú mar seo a leanas.

5.1) Sa Roghnaigh orduithe ó liosta anuas, roghnaigh Macraí;

5.2) Roghnaigh an macra a chuir tú leis sa chéim roimhe seo;

5.3) Cliceáil ar an Cuir cnaipe chun an macra seo a chur leis an Saincheap Barra Uirlisí Rochtana Tapa bosca.

6. Coinnigh an script roghnaithe sa bhosca ar dheis, agus ansin cliceáil ar an Athraigh cnaipe. Sa Cnaipe Athraigh bosca dialóige, cnaipe nua a shannadh don script agus cliceáil OK.

7. cliceáil OK sa Roghanna Outlook bosca dialóige chun na hathruithe a shábháil.

Ansin cuirtear an cnaipe a shonraigh tú i gcéim 6 leis an Barra Uirlisí Rochtana Tapa.

8. Atosaigh Outlook chun an cód a ghníomhachtú.

As seo amach, agus tú ag tabhairt freagra ar ríomhphost sa phána léitheoireachta, is féidir leat an freagra a scriosadh mar aon leis an dréacht ach cliceáil ar an gcnaipe ar an mBarra Uirlisí Mearrochtana.

Nóta: Tar éis duit an script a rith, ní mór duit ríomhphost eile a roghnú sa liosta seoltaí chun an radharc ríomhphoist san fhillteán reatha a athnuachan.

Scrios an dréacht atá curtha in eagar faoi láthair i bhfuinneog nua

Más maith leat ríomhphoist a fhreagairt i bhfuinneog nua. Is féidir leis an gcód VBA seo a leanas cabhrú leis an ríomhphost freagartha a scriosadh chomh maith leis an dréacht go héasca in Outlook.

1. Seoladh do Outlook, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúl. Ansin cóipeáil an cód VBA seo a leanas chuig fuinneog an Mhodúil.

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. Brúigh an Eile + F11 a dhúnadh Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Anois tá cnaipe ag teastáil uait chun an macra a rith.

4. cliceáil Baile > Ríomhphost Nua chun ríomhphost nua a chruthú. I bhfuinneog na teachtaireachta, cliceáil Saincheap Barra Uirlisí Rochtana Tapa > Tuilleadh Orduithe.

5. Ansin déan na céimeanna thuas arís ó 5 go 7 chun cnaipe a chruthú don script agus cuir leis an Barra Uirlisí Rochtana Tapa den fhuinneog teachtaireachta.

As seo amach, agus tú ag tabhairt freagra ar ríomhphost i bhfuinneog teachtaireachta nua, is féidir leat an freagra seo a scriosadh mar aon leis an dréacht ach cliceáil ar an gcnaipe ar an mBarra Uirlisí Mearrochtana.