Qabul qilingan/yuborilgan elektron pochta xabarlarini Outlook VBA yordamida avtomatik ravishda “Tahrirlash” rejimida qanday ochish mumkin

Outlook yechimlari Sentyabr 29, 2025

Outlookda qabul qilingan yoki yuborilgan elektron pochta xabarining asosiy qismini o'zgartirish uchun uni ochib, keyin uni "Tahrirlash" rejimiga o'tkazishingiz kerak. Agar siz bunday elektron pochta xabarlariga tez-tez o'zgartirishlar kiritishingiz kerak bo'lsa, ularni avtomatik ravishda "Tahrirlash" rejimida ochishingiz kerak bo'ladi. Ushbu post sizga buni tushunishga yordam beradi.

Ba'zan, Outlook'da qabul qilingan yoki yuborilgan elektron pochta xabarining mazmunini o'zgartirishingiz kerak bo'lishi mumkin. Ushbu stsenariyda, oldingi postda tanishtirilganidek - "Outlook-da qabul qilingan xatlarning mavzusi va matnini qanday o'zgartirish mumkin", siz elektron pochtani ochishingiz va "Amallar" tugmasini bosishingiz va elektron pochtani "Tahrirlash" rejimiga aylantirish uchun "Xabarni tahrirlash" ni tanlashingiz kerak. Biroq, bu hali ham biroz muammoli deb o'ylashingiz mumkin. Shuning uchun siz Outlook qabul qilingan/yuborilgan xatlarni har doim “Tahrirlash” rejimida ochishini xohlaysiz. Keyinchalik, ushbu funktsiyaga erishish uchun VBA kodidan qanday foydalanishni tanishtiramiz. Endi batafsil qadamlarni olish uchun o'qing.

Qabul qilingan/yuborilgan elektron pochta xabarlarini “Tahrirlash” rejimida avtomatik ravishda oching

Eng boshida, ".Outlook-da VBA kodini qanday ishlatish kerak", Outlook VBA muharririga kiring.
Keyin, quyidagi VBA kodini nusxa ko'chiring va "ThisOutlookSession" loyihasiga joylashtiring.

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

Shundan so'ng, "Application_Startup" makrosini bosing va "F5" tugmasini bosing.
Hozirda VBA muharririni yoping.
Nihoyat, siz sinab ko'rishingiz mumkin. Qabul qilingan yoki yuborilgan xatni ochish uchun uni ikki marta bosing. Bu, albatta, "Tahrirlash" rejimida bo'ladi.

Outlook ma'lumotlarini yo'qotishdan himoyalangan

Sizning PST faylingizga hech qachon kirish imkoni bo'lmaganmi? Aslida, Outlook PST fayli tezda buzilishi mumkin. Masalan, elektron pochta orqali yuboriladigan viruslar osongina Outlook ishdan chiqishiga olib kelishi va shu tariqa Outlook ma'lumotlarining buzilishiga olib kelishi mumkin. Bunday hollarda, sizning ongingizga tushadigan birinchi qaror bo'lishi mumkin pochta qutisini tuzatish vositasi. Biroq, umuman olganda, bunday jiddiy vaziyatlarni engishga qodir emas. Shuning uchun, har doim PST fayllarini muntazam ravishda zaxiralash tavsiya etiladi, shunda siz PST ma'lumotlarini zaxira nusxalaridan mantar kabi tiklashingiz mumkin. Aks holda, siz kabi maxsus tashqi vositaga qaytishingiz kerak DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com