Kako automatski otvoriti primljene/poslane e-poruke u modu „Uređivanje“ pomoću Outlook VBA

Da biste promijenili tijelo primljene ili poslane e-pošte u Outlooku, morate je otvoriti, a zatim prebaciti u način rada "Uredi". Ako često trebate vršiti izmjene u takvim e-porukama, poželjet ćete ih automatski otvarati u načinu rada "Uredi". Ovaj članak će vam pomoći u tome.

Ponekad ćete možda morati promijeniti sadržaj primljene ili poslane e-pošte u Outlooku. U ovom scenariju, kao što je predstavljeno u prethodnom postu – „Kako izmijeniti temu i tijelo primljene e-pošte u Outlooku“, morate otvoriti e-poštu i kliknuti na dugme “Radnje” i odabrati “Uredi poruku” da konvertujete e-poštu u režim “Uredi”. Međutim, možda mislite da je to još uvijek pomalo problematično. Stoga želite da Outlook uvijek otvara primljene/poslane e-poruke u načinu rada „Uredi“. Nakon toga ćemo vam predstaviti kako koristiti VBA kod za postizanje ove funkcije. Sada čitajte dalje da biste dobili detaljne korake.

Automatski otvarajte primljene/poslane e-poruke u načinu rada „Uredi“.

1. Na samom početku, s osvrtom na “Kako pokrenuti VBA kod u vašem Outlooku“, pristupite Outlook VBA editoru.
2. Zatim kopirajte i zalijepite sljedeći VBA kod u projekt “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. Nakon toga, kliknite na makro "Application_Startup" i pritisnite tipku "F5".
4. Trenutno zatvorite VBA editor.
5. Konačno, možete probati. Samo dvaput kliknite na primljenu ili poslanu poštu da biste je otvorili. Sigurno će biti u modu “Edit”.

Imun na gubitak Outlook podataka

Da li je vaš PST fajl ikada postao nedostupan? U stvarnosti, Outlook PST datoteka može se lako oštetiti. Na primjer, virusi koji se prenose putem e-pošte mogu lako dovesti do pada Outlooka i time dovesti do oštećenja Outlook podataka. U takvim slučajevima, prvo rješenje koje se događa vašem umu može biti alat za popravku inboxa. Međutim, generalno gledano, nije u stanju da se nosi sa ovako ozbiljnim situacijama. Stoga se uvijek preporučuje pravljenje rezervnih kopija PST datoteka u redovnim intervalima, tako da možete vratiti PST podatke iz sigurnosne kopije poput čepa. U suprotnom, morate se vratiti na specijalizirani vanjski alat, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com