Kako automatski otvoriti primljenu/poslanu e-poštu u načinu rada "Uređivanje" s programom 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 unositi izmjene u takve e-poruke, 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 prethodnoj objavi – „Kako promijeniti predmet i tijelo primljene e-pošte u programu Outlook“, morate otvoriti e-poštu i kliknuti gumb „Akcije” i odabrati „Uredi poruku” da biste pretvorili e-poštu u način rada „Uredi”. Međutim, možda mislite da je to još uvijek malo problematično. Stoga želite da Outlook uvijek otvara primljenu/poslanu e-poštu u načinu rada "Uredi". Nakon toga, predstavit ćemo kako koristiti VBA kod za postizanje ove funkcije. Sada čitajte kako biste saznali detaljne korake.

Automatski otvorite primljenu/poslanu e-poštu u načinu rada "Uredi".

1. Na samom početku, s osvrtom na “Kako pokrenuti VBA kod u vašem Outlooku“, pristupite Outlook VBA uređivaču.
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 uređivač.
5. Konačno, možete pokušati. Samo dvaput kliknite na primljenu ili poslanu poštu da biste je otvorili. Sigurno će biti u načinu rada "Uredi".

Otpornost na gubitak podataka u programu Outlook

Je li vaša PST datoteka ikada postala nedostupna? U stvarnosti, Outlook PST datoteka može se lako oštetiti. Na primjer, virusi koji se prenose e-poštom mogu lako dovesti do pada Outlooka i time rezultirati oštećenjem Outlook podataka. U takvim slučajevima, prvo rješenje koje vam se događa može biti alat za popravak inboxa. Međutim, općenito govoreći, nije u stanju nositi se s tako ozbiljnim situacijama. Stoga se uvijek predlaže sigurnosno kopiranje PST datoteka u redovitim intervalima, tako da možete vratiti PST podatke iz sigurnosnih kopija poput čepa. U suprotnom, morate se osloniti na specijalizirani vanjski alat, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com