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

Outlookis vastuvõetud või saadetud e-kirja sisu muutmiseks peate selle avama ja seejärel lülitama muutmisrežiimi. Kui teil on vaja sellistes e-kirjades sageli muudatusi teha, peaksite need automaatselt muutmisrežiimis avama. See postitus aitab teil seda teha.

Mõnikord võib teil olla vaja muuta Outlookis vastuvõetud või saadetud e-kirja sisu. Sellisel juhul, nagu eelmises postituses tutvustati – „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.

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

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

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