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.
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.
Cúntóir Ríomhphoist AI in Outlook: Freagraí níos Cliste, Cumarsáid níos soiléire (draíocht aon-cliceáil!) SAOR
Sruthlaigh do thascanna Outlook laethúla leis an Cúntóir Mail AI ó Kutools le haghaidh Outlook. Foghlaimíonn an uirlis chumhachtach seo ó do ríomhphoist roimhe seo chun freagraí cliste agus cruinne a thairiscint, chun ábhar do ríomhphoist a bharrfheabhsú, agus chun cabhrú leat teachtaireachtaí a dhréachtú agus a fheabhsú gan stró.
Tacaíonn an ghné seo le:
- Freagraí Cliste: Faigh freagraí ó do chomhráite san am a chuaigh thart - in oiriúint, beacht, agus réidh le dul.
- Ábhar Feabhsaithe: Déan do théacs ríomhphoist a bheachtú go huathoibríoch ar mhaithe le soiléireacht agus tionchar.
- Comhdhéanamh gan stró: Just a chur ar fáil eochairfhocail, agus lig AI láimhseáil an chuid eile, le stíleanna scríbhneoireachta iolracha.
- Eisínteachtaí Chliste: Leathnaigh do chuid smaointe le moltaí atá feasach ar an gcomhthéacs.
- Achoimre: Faigh forbhreathnú gonta ar ríomhphoist fhada láithreach.
- Global Reach: Aistrigh do ríomhphoist go teanga ar bith gan stró.
Tacaíonn an ghné seo le:
- Freagraí ríomhphoist cliste
- Ábhar optamaithe
- Dréachtanna bunaithe ar eochairfhocail
- Síneadh ábhar Chliste
- Achoimre ríomhphoist
- Aistriúchán ilteangach
Is fearr ar fad, tá an ghné seo go hiomlán saor go deo! Ná fan -íoslódáil Cúntóir Ríomhphoist AI anois agus bain sult as!
a name="a2"> 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.
Uirlisí Táirgiúlachta Oifige is Fearr
Breaking News: Kutools le haghaidh Outlook Seolann Leagan saor in aisce!
Taithí a dhéanamh ar an Kutools uile-nua le haghaidh Outlook Leagan SAOR IN AISCE le 70+ gnéithe dochreidte, is féidir leatsa a úsáid go deo! Cliceáil le híoslódáil anois!
📧 Uathoibriú Ríomhphoist: Auto Reply (Ar fáil le haghaidh POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Cuir i gcuimhne duit nuair a thagann ríomhphoist thábhachtacha / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...