Outlook elementlarining har xil turlari uchun turli tez bosish bayroqlarini qanday o'rnatish mumkin

"Tez bosish bayrog'i" Outlook elementining bayroq ustunini bir marta bosganingizda standart bayroqni anglatadi. Outlook element turidan qat'i nazar, faqat bitta tezkor bosish belgisini o'rnatishga imkon beradi. Shunday qilib, agar siz element turlari bo'yicha turli xil tez bosish bayroqlarini o'rnatmoqchi bo'lsangiz, ushbu maqolada keltirilgan usuldan foydalanishingiz mumkin.

Tez bosish belgisini o'rnatish uchun siz elementning "bayroq" ustunini o'ng tugmasini bosib, "Tez bosishni o'rnatish" ni tanlashingiz mumkin. Keyin ochiladigan kichik dialog oynasida o'z xohishiga ko'ra bayroqni tanlang. Odatiy bo'lib, Outlook barcha turdagi elementlar uchun ushbu tez bosish belgisini qo'llaydi. Shunga qaramay, aslida, ko'pchilik foydalanuvchilar Outlook elementlarining har xil turlariga turli xil tez bosish bayroqlarini qo'llashga umid qilishadi. Shuning uchun, quyida biz sizga elektron pochta va kontaktlar misolidan foydalanib, uni olishni o'rgatamiz.

Outlook elementlarining har xil turlari uchun har xil tez bosish bayroqlarini o'rnating

1. Eng boshida, start Outlook VBA muharriri “ ga havolaOutlook-da VBA kodini qanday ishlatish kerak".
2. Keyin, quyidagi VBA kodini "ThisOutlookSession" loyihasiga nusxalang.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    ElseIf TypeOf objExplorer.Selection.Item(1) Is ContactItem Then
       Set objContact = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Keyin kursorni “Application_Startup” subprogrammasi va ushbu makrosni faollashtirish uchun “F5” tugmasini bosing.
4. Oxir-oqibat, siz sinab ko'rishingiz mumkin.

• Elektron pochtani tanlang va "Bayroq" ustunini bosing. Bir vaqtning o'zida elektron pochtaga "Ertaga" bayrog'i qo'shiladi.
• Keyin, kontaktni belgilang va "Bayroq" ustunini bosing. Darhol tanlangan kontaktga "Bugun" bayrog'i qo'shiladi.

Zararli elektron pochta xabarlarini taqiqlash

Makro bizning Outlook-da ishlashimizga katta hissa qo'shsa-da, siz hali ham makroslarga, ayniqsa tashqi noma'lum elektron pochta xabarlariga e'tibor bering. Buning sababi shundaki, makroslar sizning Outlook ma'lumotlaringizga osongina hujum qilishi mumkin bo'lgan viruslarni o'z ichiga olishi mumkin. Outlook faylingiz zararlangandan so'ng, viruslarni o'ldirishdan tashqari, Outlook faylini tuzatishingiz kerak. Odatda, kirish qutisini ta'mirlash vositasi effekt bermaydi. Sizning yagona kurortingiz kuchliroq va kreditga layoqatli uchinchi tomondir Outlook tuzatish kabi vosita 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 ta'mirlash mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com