Vastuvõetud/saadetud meilide automaatne avamine muutmisrežiimis Outlook VBA abil

Outlooki lahendused September 29, 2025

Saabunud või saadetud meili sisu muutmiseks Outlookis peate selle avama ja seejärel muutma režiimi "Redigeerimine". Kui teil on sellistes meilides sageli vaja muudatusi teha, avage need automaatselt režiimis "Muuda". See post aitab teil seda saada.

Mõnikord peate võib-olla Outlookis vastuvõetud või saadetud meili sisu muutma. Selle stsenaariumi korral, nagu tutvustati eelmises lkost - "Kuidas muuta Outlookis vastuvõetud meilide teemat ja sisu", peate e-kirja avama ja klõpsama nuppu "Toimingud" ja valima "Muuda sõnumit", et teisendada e-kiri "Muuda" režiimi. Siiski võite arvata, et see on siiski pisut tülikas. Seetõttu soovite, et Outlook avaks vastuvõetud/saadetud meilid alati redigeerimisrežiimis. Edaspidi tutvustame, kuidas kasutada VBA koodi selle funktsiooni saavutamiseks. Nüüd lugege edasi, et saada üksikasjalikke juhiseid.

Redigeeri sõnumit

Avage vastuvõetud/saadetud meilid režiimis Redigeerimine automaatselt

  1. Kohe alguses, viidates "Kuidas Outlookis VBA-koodi käivitada“, avage Outlook VBA redaktor.
  2. Seejärel kopeerige ja kleepige järgmine VBA kood projekti "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

VBA kood – avage vastuvõetud/saadetud meilid automaatselt režiimis "Muuda".

  1. Seejärel klõpsake "Application_Startup" makro ja vajutage klahvi "F5".
  2. Praegu sulgege VBA redaktor.
  3. Lõpuks võite proovida. Lihtsalt topeltklõpsake vastuvõetud või saadetud kirjal selle avamiseks. See töötab kindlasti režiimis "Muuda".Meilid "Redigeerimisrežiimis".

Immuunsus Outlooki andmete kadumise eest

Kas teie PST-fail on kunagi muutunud kättesaamatuks? Tegelikult võib Outlooki PST-fail kergesti rikkuda. Näiteks võivad meiliga levivad viirused kergesti viia Outlooki krahhini ja seeläbi põhjustada Outlooki andmete rikkumist. Sellistel juhtudel võib teie mõistuse esimene lahendus olla postkasti parandamise tööriist. Üldiselt ei suuda ta aga selliste tõsiste olukordadega toime tulla. Seetõttu on alati soovitatav varundada PST-faile korrapäraste ajavahemike järel, et saaksite PST-andmeid varukoopiatest taastada nagu korgist. Vastasel juhul peate kasutama spetsiaalset välist tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.