Kuinka poistaa tällä hetkellä muokattu luonnos poistamatta alkuperäistä sähköpostia Outlookissa?

Kirjailija: Siluvia Viimeksi muokattu: 2024-09-13

Microsoft Outlook 2013 ja uudemmat versiot avaavat sähköpostivastaukset lukuruudussa oletusarvoisesti. Oletetaan, että vastaat sähköpostiin ja 3 minuutin kuluttua Outlook tallentaa vastauksen automaattisesti luonnoksena. Mutta sitten päätät olla lähettämättä tätä vastausta ja poistat luonnoksen sen mukana. Joillakin Outlook-käyttäjillä on tapana napsauttaa Aloitus-välilehden Poista-painiketta poistaakseen luonnoksen lukuruudusta (katso alla oleva kuvakaappaus). Mutta tämä toiminto poistaa myös alkuperäisen sähköpostin.

poistaa tällä hetkellä muokatun luonnoksen poistamatta alkuperäistä sähköpostia Outlookissa

Tässä opetusohjelmassa tarjoamme kaksi VBA-koodia, joiden avulla voit lisätä kaksi komentoa pikatyökalupalkkiin, joilla voit nopeasti poistaa tällä hetkellä muokatun luonnoksen poistamatta alkuperäistä sähköpostia Outlookissa.

Poista tällä hetkellä muokattu luonnos lukuruudusta
Poista tällä hetkellä muokattu luonnos uudessa ikkunassa

Poista tällä hetkellä muokattava luonnos lukuruudusta

Jos olet tottunut vastaamaan sähköposteihin lukuruudussa, voit käyttää seuraavaa VBA-koodia poistaaksesi tällä hetkellä muokatun luonnoksen poistamatta alkuperäistä sähköpostia Outlookissa.

1. Käynnistä Outlook, paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta Project1 > Microsoft Outlook -objektit > ThisOutlookSession avaa ThisOutlookSession (koodi) ikkuna. Kopioi sitten seuraava VBA-koodi Koodi-ikkunaan.

VBA-koodi: Poista tällä hetkellä muokattu luonnos lukuruudusta

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. Tallenna koodi ja paina muut + Q avaimet sulkeaksesi Microsoft Visual Basic for Applications ikkunassa.

Nyt tarvitset painikkeen makron suorittamiseen.

4. napsauttaa Muokkaa pikakäyttötyökaluriviä > Lisää komentoja.

5. Vuonna Outlook-asetukset valintaikkunassa, sinun on määritettävä seuraavasti.

5.1) kohdassa Valitse komennot avattavasta luettelosta makrot;

5.2) Valitse edellisessä vaiheessa lisäämäsi makro;

5.3) Napsauta painiketta Lisää -painiketta lisätäksesi tämän makron Muokkaa pikakäyttötyökaluriviä laatikko.

6. Pidä komentosarja valittuna oikeanpuoleisessa ruudussa ja napsauta sitten Muuttaa painiketta. Vuonna Muokkaa-painike -valintaikkunassa, määritä komentosarjalle uusi painike ja napsauta OK.

7. napsauttaa OK vuonna Outlook-asetukset valintaikkuna tallentaaksesi muutokset.

Vaiheessa 6 määrittämäsi painike lisätään sitten kohtaan Pikavalinta-työkalurivi.

8. Aktivoi koodi käynnistämällä Outlook uudelleen.

Tästä lähtien, kun vastaat sähköpostiin lukuruudussa, voit poistaa vastauksen luonnoksen kanssa napsauttamalla pikatyökalupalkin painiketta.

Huomautus: Skriptin suorittamisen jälkeen sinun on valittava toinen sähköposti postituslistalta päivittääksesi nykyisen kansion sähköpostinäkymän.

AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA

Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.

Tämä ominaisuus tukee:

Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.

Tämä ominaisuus tukee:

Älykkäät sähköpostivastaukset
Optimoitu sisältö
Avainsanoihin perustuvat luonnokset
Älykäs sisältölaajennus
Yhteenveto sähköpostitse
Monikielinen käännös

Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!

a name="a2"> Poista tällä hetkellä muokattu luonnos uudessa ikkunassa

Jos haluat vastata sähköposteihin uudessa ikkunassa. Seuraava VBA-koodi voi auttaa poistamaan vastaussähköpostin ja luonnoksen helposti Outlookissa.

1. Käynnistä Outlook, paina muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. napsauttaa liite > Moduuli. Kopioi sitten seuraava VBA-koodi moduuliikkunaan.

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. paina muut + F11 sulkea Microsoft Visual Basic for Applications ikkunassa.

Nyt tarvitset painikkeen makron suorittamiseen.

4. napsauttaa ETUSIVU > uusi sähköposti luodaksesi uuden sähköpostin. Napsauta viestiikkunassa Muokkaa pikakäyttötyökaluriviä > Lisää komentoja.

5. Toista sitten yllä olevat vaiheet 5-7 luodaksesi painikkeen skriptille ja lisää se Pikavalinta-työkalurivi viesti-ikkunasta.

Tästä lähtien, kun vastaat sähköpostiin uudessa viestiikkunassa, voit poistaa tämän vastauksen luonnoksen kanssa napsauttamalla pikatyökalupalkin painiketta.

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!

Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!

🤖 Kutools AI : Käyttää edistynyttä tekoälytekniikkaa sähköpostien vaivattoman käsittelyyn, mukaan lukien sähköpostien vastaaminen, yhteenveto, optimointi, laajentaminen, kääntäminen ja kirjoittaminen.

📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...

📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...

📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...

🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...

???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...

👩🏼‍🤝‍👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...

Avaa Kutools for Outlook välittömästi yhdellä napsautuksella. Älä odota, lataa nyt ja lisää tehokkuuttasi!

Ominaisuusluettelo Kutooleista Outlookille Lataa ilmainen versio Päivitä Professionaliin