Ako automaticky otvárať prijaté a odoslané e-maily v režime „Upraviť“ pomocou programu Outlook VBA

Ak chcete zmeniť telo prijatého alebo odoslaného e-mailu v programe Outlook, musíte ho otvoriť a potom ho prepnúť do režimu „Upraviť“. Ak často potrebujete takéto e-mailové adresy upraviť, budete si ich chcieť automaticky otvoriť v režime „Upraviť“. Toto post pomôže ti to získať.

Možno bude niekedy potrebné zmeniť obsah prijatého alebo odoslaného e-mailu v Outlooku. V tomto scenári, ako je uvedené v predchádzajúcej strost - "Ako upraviť predmet a telo prijatých e-mailov v programe Outlook“, Musíte otvoriť e-mail, kliknúť na tlačidlo„ Akcie “a zvoliť„ Upraviť správu “, čím sa e-mail prevedie do režimu„ Upraviť “. Možno si však myslíte, že je to stále trochu nepríjemné. Preto si želáte, aby program Outlook vždy otváral prijaté / odoslané e-maily v režime „Upraviť“. Ďalej si predstavíme, ako používať kód VBA na dosiahnutie tejto funkcie. Teraz čítajte ďalej a získate podrobné kroky.

Automaticky otvárať prijaté alebo odoslané e-maily v režime „Upraviť“

1. Hneď na úvod s odkazom na „Ako spustiť kód VBA v programe Outlook“, Prístup k editoru Outlook VBA.
2. Potom skopírujte a prilepte nasledujúci kód VBA do projektu „ThisOutlookSession“.

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. Potom kliknite na „Aplikácia_Startup “a stlačte kláves„ F5 “.
4. V súčasnosti zatvorte editor VBA.
5. Nakoniec to môžete vyskúšať. Dvojitým kliknutím na prijatú alebo odoslanú poštu ju otvoríte. Určite to bude v režime „Upraviť“.

Imunita zo straty dát v Outlooku

Stali sa vaše súbory PST niekedy neprístupnými? V skutočnosti sa môže súbor Outlook PST ľahko poškodiť. Napríklad vírusy prenášané e-mailom môžu ľahko viesť k zlyhaniu programu Outlook, a tým k poškodeniu údajov programu Outlook. V takýchto prípadoch môže byť prvé riešenie, ktoré sa stane vašej mysli nástroj na opravu doručenej pošty. Všeobecne však nie je schopný zvládnuť také vážne situácie. Preto sa vždy odporúča zálohovať súbory PST v pravidelných intervaloch, aby ste mohli dáta PST zo záloh zálohovať ako zátku. V opačnom prípade musíte opäť nasadiť špecializovaný externý nástroj, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S