Ինչպես ավտոմատ կերպով բացել ստացված/ուղարկված նամակները «Խմբագրել» ռեժիմում Outlook VBA-ով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Outlook-ում ստացված կամ ուղարկված էլ. նամակի տեքստը փոխելու համար դուք պետք է այն բացեք, ապա միացնեք «Խմբագրել» ռեժիմի: Եթե հաճախ անհրաժեշտ է փոփոխություններ կատարել նման էլ. նամակներում, ապա կցանկանաք դրանք ավտոմատ կերպով բացել «Խմբագրել» ռեժիմով: Այս գրառումը կօգնի ձեզ դա անել:

Երբեմն կարող է անհրաժեշտ լինել փոփոխել Outlook-ում ստացված կամ ուղարկված էլ. նամակի բովանդակությունը։ Այս դեպքում, ինչպես ներկայացված է նախորդ գրառման մեջ՝ «Ինչպես փոփոխել Outlook-ում ստացված նամակների թեման և բովանդակությունը«, դուք պետք է բացեք էլ.փոստը և սեղմեք «Գործողություններ» կոճակը և ընտրեք «Խմբագրել հաղորդագրությունը»՝ էլփոստը «Խմբագրել» ռեժիմի փոխարկելու համար: Այնուամենայնիվ, դուք կարող եք մտածել, որ դա դեռ մի փոքր անհանգիստ է: Հետևաբար, դուք ցանկանում եք, որ Outlook-ը միշտ բացի ստացված/ուղարկված նամակները «Խմբագրել» ռեժիմում: Այնուհետև մենք կներկայացնենք, թե ինչպես օգտագործել VBA կոդը այս գործառույթը հասնելու համար: Այժմ կարդացեք մանրամասն քայլերը ստանալու համար:

Բացեք ստացված/ուղարկված նամակները «Խմբագրել» ռեժիմում ավտոմատ կերպով

Հենց սկզբում, հղում անելով «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում«, մուտք գործեք Outlook VBA խմբագրիչ:
Այնուհետև պատճենեք և տեղադրեք հետևյալ VBA կոդը «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

Այնուհետև սեղմեք «Application_Startup» մակրոյի վրա և սեղմեք «F5» ստեղնը:
Ներկայումս փակեք VBA խմբագրիչը:
Ի վերջո, դուք կարող եք փորձել: Պարզապես կրկնակի սեղմեք ստացված կամ ուղարկված նամակի վրա՝ այն բացելու համար: Դա անպայման կլինի «Խմբագրել» ռեժիմում:

Իմունիտետ Outlook-ի տվյալների կորստից

Ձեր PST ֆայլը երբևէ անհասանելի է դարձել: Իրականում, Outlook PST ֆայլը կարող է հեշտությամբ կոռումպացված լինել: Օրինակ, էլփոստով փոխանցվող վիրուսները կարող են հեշտությամբ հանգեցնել Outlook-ի խափանման և դրանով իսկ հանգեցնել Outlook-ի տվյալների կոռուպցիայի: Նման դեպքերում ձեր մտքի առաջին լուծումը կարող է լինել մուտքի արկղի վերանորոգման գործիք. Սակայն, ընդհանուր առմամբ, այն ի վիճակի չէ նման լուրջ իրավիճակներին դիմակայելու։ Հետևաբար, միշտ առաջարկվում է կրկնօրինակել PST ֆայլերը կանոնավոր ընդմիջումներով, որպեսզի կարողանաք վերականգնել PST տվյալները խցանի նման կրկնօրինակներից: Հակառակ դեպքում, դուք պետք է հետ ընկնեք մասնագիտացված արտաքին գործիքի վրա, օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com