Cum să deschideți automat e-mailurile primite/trimise în modul „Editare” cu Outlook VBA

Pentru a modifica corpul unui e-mail primit sau trimis în Outlook, trebuie să îl deschideți și apoi să îl comutați în modul „Editare”. Dacă trebuie să faceți des modificări în astfel de e-mailuri, veți dori să le deschideți automat în modul „Editare”. Această postare vă va ajuta să faceți acest lucru.

Uneori, este posibil să fie nevoie să modificați conținutul unui e-mail primit sau trimis în Outlook. În acest scenariu, așa cum am prezentat în postarea anterioară – „Cum să modificați subiectul și corpul e-mailurilor primite în Outlook„, trebuie să deschideți e-mailul și să faceți clic pe butonul „Acțiuni” și să alegeți „Editați mesajul” pentru a converti e-mailul în modul „Editare”. Cu toate acestea, s-ar putea să credeți că este încă puțin supărător. Prin urmare, doriți ca Outlook să deschidă întotdeauna e-mailurile primite/trimise în modul „Editare”. În continuare, vom prezenta modul de utilizare a codului VBA pentru a realiza această funcție. Acum citiți mai departe pentru a obține pași detaliați.

Deschideți automat e-mailurile primite/trimise în modul „Editare”.

1. La început, cu referire la „Cum să rulați codul VBA în Outlook„, accesați editorul Outlook VBA.
2. Apoi, copiați și inserați următorul cod VBA în proiectul „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. După aceea, faceți clic pe macrocomanda „Application_Startup” și apăsați tasta „F5”.
4. În prezent, închideți editorul VBA.
5. În sfârșit, puteți încerca. Doar faceți dublu clic pe un e-mail primit sau trimis pentru a-l deschide. Cu siguranță va fi în modul „Editare”.

Imun la pierderea datelor Outlook

Fișierul tău PST a devenit vreodată inaccesibil? În realitate, fișierul PST Outlook poate fi corupt cu ușurință. De exemplu, virușii transmisi prin e-mail pot duce cu ușurință la blocarea Outlook și, prin urmare, pot duce la coruperea datelor Outlook. În astfel de cazuri, prima rezoluție care ți se întâmplă mintea poate fi instrument de reparare inbox. Cu toate acestea, în general, este incapabil să facă față unor astfel de situații grave. Prin urmare, se recomandă întotdeauna să faceți copii de siguranță ale fișierelor PST la intervale regulate, astfel încât să puteți restaura datele PST din copii de rezervă ca un dop. În caz contrar, trebuie să recurgeți la un instrument extern specializat, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com