Jotkut käyttäjät haluavat poistaa alkuperäisen sähköpostin vastattuaan siihen, koska vastaus sisältää alkuperäisen sähköpostin tiedot. Tässä artikkelissa jaetaan 2 nopeaa tapaa toteuttaa se automaattisesti.
Oletusarvoisesti Outlook on asetettu automaattisesti sisällyttämään alkuperäinen viesti vastaukseen. Tässä tapauksessa monet käyttäjät haluaisivat poistaa alkuperäisen viestin jättäen vain vastauksen postilaatikkoonsa. Tämä ei vain voi pitää heidän postilaatikkonsa pienenä, vaan myös heidän sähköpostinsa järjestyksessä. Jos et halua poistaa alkuperäisiä sähköposteja manuaalisesti, voit automatisoida sen seuraavien 2 temppujen avulla.

Vinkki 1: Käytä Quick Step -toimintoa
Outlookin mukana tulee natiivi pikavaihe "Vastaa ja poista", kuten seuraava kuva. Tämä nopea vaihe voi poistaa alkuperäisen viestin automaattisesti ja näyttää vastauksen, kun napsautat sitä.
Jos et löydä tätä nopeaa vaihetta, on erittäin todennäköistä, että olet poistanut sen aiemmin vahingossa. Voit myös luoda sen uudelleen noudattamalla alla olevia ohjeita.
- Napsauta ensin "Luo uusi" -painiketta "Pikavaiheet" -ryhmässä.
- Anna sitten ponnahdusikkunassa sille nimi, kuten "Vastaa ja poista".
- Seuraavaksi "Toiminnot" -osiossa valitse "Vastaa".
- Napsauta sen jälkeen "Lisää toiminto" -painiketta.
- Ja lisää sitten "Poista viesti" -toiminto.
- Paina lopuksi "Tallenna" -painiketta.
Tämän vuoksi sinun on aina käytettävä tätä nopeaa vaihetta sähköpostiin vastaamiseen. Jos haluat edelleen käyttää "Vastaa"-ryhmän "Vastaa" -painiketta saavuttaaksesi "Vastaa ja poista", voit käyttää seuraavia keinoja.
Vinkki 2: Käytä Outlook VBA: ta
- Ensinnäkin, paina "Alt + F11" -näppäimiä Outlookissa.
- Avaa sitten seuraavassa VBA-editori-ikkunassa "ThisOutlookSession" -projekti.
- Seuraavaksi kopioi ja liitä seuraavat VBA-koodit siihen.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
Set objMail = Application.ActiveExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMail = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
objMail.Delete
'If you want to only delete the specific email when replying it
'You can specify the condition of the email as per your needs
'like the following lines
'If (InStr(LCase(objMail.Subject), "test") > 0) Then
' objMail.Delete
'End If
End Sub
- Tämän jälkeen allekirjoita tämä koodi digitaalisesti.
- Muista myös muuttaa Outlook-makroasetuksiasi salliaksesi digitaalisesti allekirjoitetut makrot.
- Käynnistä lopuksi Outlook uudelleen aktivoidaksesi uuden VBA-projektin. Tästä lähtien, kun vastaat sähköpostiin painamalla vakiovastaa-painiketta, alkuperäinen sähköposti poistetaan automaattisesti.
Palauta vaarantuneet Outlook-tietosi
Jos kohtaat äkillisesti Outlook-vauriot yllättäen sinun on yleensä yritettävä parhaasi mukaan palauttaa Outlook-tietosi. Kuten tavallista, paras ja yksinkertaisin tapa on hakea tiedot varmuuskopioista. Mutta jos sinulla ei ole ajantasaista varmuuskopiota, voit myös turvautua kokeneeseen korjaustyökaluun, kuten DataNumen Outlook Repair.
Tekijän esittely:
Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com


