Kako samodejno odpreti prejeta/poslana e-poštna sporočila v načinu »Urejanje« z Outlookom VBA

Če želite spremeniti telo prejetega ali poslanega e-poštnega sporočila v Outlooku, ga morate odpreti in nato preklopiti v način »Uredi«. Če morate pogosto spreminjati takšna e-poštna sporočila, jih boste želeli samodejno odpreti v načinu »Uredi«. Ta objava vam bo pri tem pomagala.

Včasih boste morda morali spremeniti vsebino prejetega ali poslanega e-poštnega sporočila v Outlooku. V tem primeru, kot je bilo predstavljeno v prejšnji objavi – »Kako spremeniti zadevo in telo prejetih e-poštnih sporočil v Outlooku«, morate odpreti e-pošto in klikniti gumb »Dejanja« ter izbrati »Uredi sporočilo«, da pretvorite e-pošto v način »Uredi«. Vendar se vam morda zdi, da je še vedno nekoliko težavno. Zato želite, da Outlook vedno odpira prejeta/poslana e-poštna sporočila v načinu »Urejanje«. V nadaljevanju bomo predstavili, kako uporabiti kodo VBA za dosego te funkcije. Zdaj preberite, če želite izvedeti podrobne korake.

Samodejno odpri prejeta/poslana e-poštna sporočila v načinu »Urejanje«.

1. Na samem začetku s sklicevanjem na »Kako zagnati kodo VBA v Outlooku«, odprite urejevalnik Outlook VBA.
2. Nato kopirajte in prilepite naslednjo kodo VBA v 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. Nato kliknite na makro »Application_Startup« in pritisnite tipko »F5«.
4. Trenutno zaprite urejevalnik VBA.
5. Končno lahko poskusite. Samo dvakrat kliknite na prejeto ali poslano pošto, da jo odprete. Zagotovo bo v načinu »Uredi«.

Odporen na izgubo podatkov Outlook

Ali je vaša datoteka PST kdaj postala nedostopna? V resnici se lahko datoteka Outlook PST takoj poškoduje. Na primer, virusi, ki se prenašajo po e-pošti, lahko zlahka povzročijo zrušitev Outlooka in posledično povzročijo poškodovanje podatkov v Outlooku. V takih primerih je lahko prva rešitev, ki se vam zgodi v mislih orodje za popravilo nabiralnika. Vendar pa se na splošno ne more spoprijeti s tako resnimi situacijami. Zato je vedno predlagano, da varnostno kopirate datoteke PST v rednih intervalih, tako da lahko obnovite podatke PST iz varnostnih kopij kot čep. V nasprotnem primeru se boste morali vrniti na specializirano zunanje orodje, npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjava mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com