Vastaanotettujen/lähetettyjen sähköpostien avaaminen "muokkaustilassa" automaattisesti Outlook VBA:lla

Jos haluat muuttaa vastaanotetun tai lähetetyn sähköpostin tekstiä Outlookissa, sinun on avattava se ja siirrettävä se sitten muokkaustilaan. Jos sinun on usein tehtävä muutoksia tällaisiin sähköposteihin, haluat avata ne automaattisesti muokkaustilassa. Tämä viesti auttaa sinua tässä.

Joskus sinun on ehkä muutettava vastaanotetun tai lähetetyn sähköpostin sisältöä Outlookissa. Tässä tilanteessa, kuten edellisessä viestissä esiteltiin – ”Vastaanotettujen sähköpostien aiheen ja tekstin muokkaaminen Outlookissa", sinun on avattava sähköposti ja napsautettava "Toiminnot" -painiketta ja valittava "Muokkaa viestiä" muuntaaksesi sähköpostin "Muokkaa"-tilaan. Saatat kuitenkin ajatella, että se on edelleen hieman hankalaa. Siksi haluat Outlookin avaavan vastaanotetut/lähetetyt sähköpostit aina "Muokkaa"-tilassa. Tämän jälkeen esittelemme, kuinka VBA-koodia käytetään tämän toiminnon saavuttamiseksi. Lue nyt saadaksesi yksityiskohtaiset vaiheet.

Avaa vastaanotetut/lähetetyt sähköpostit automaattisesti "muokkaustilassa".

1. Heti alussa viitaten "Kuinka suorittaa VBA-koodi Outlookissa", käytä Outlook VBA -editoria.
2. Kopioi ja liitä sitten seuraava VBA-koodi ThisOutlookSession-projektiin.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Napsauta sen jälkeen "Application_Startup"-makroa ja paina "F5"-näppäintä.
4. Sulje tällä hetkellä VBA-editori.
5. Lopuksi voit kokeilla. Avaa vastaanotettu tai lähetetty sähköposti kaksoisnapsauttamalla sitä. Se on varmasti "muokkaa"-tilassa.

Immunoi Outlookin tietojen katoamiselta

Onko PST-tiedostosi koskaan ollut käyttökelvoton? Todellisuudessa Outlookin PST-tiedosto voi vioittua helposti. Esimerkiksi sähköpostin levittämät virukset voivat helposti johtaa Outlookin kaatumiseen ja siten johtaa Outlookin tietojen vioittumiseen. Tällaisissa tapauksissa ensimmäinen mieleesi tuleva ratkaisu saattaa olla Saapuneet-kansion korjaustyökalu. Yleisesti ottaen se ei kuitenkaan pysty käsittelemään tällaisia ​​vakavia tilanteita. Siksi on aina suositeltavaa varmuuskopioida PST-tiedostoja säännöllisin väliajoin, jotta voit palauttaa PST-tiedot varmuuskopioista kuten korkki. Muussa tapauksessa sinun on turvauduttava erikoistuneeseen ulkoiseen työ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