Outlook-da ma'lum bir toifa elektron pochtaga tayinlanganda qanday qilib avtomatik ravishda vazifa yaratish mumkin

Ushbu maqola sizga Outlook VBA yordamida elektron pochtaga ma'lum bir rang toifasini tayinlaganingizda avtomatik ravishda yangi vazifani qanday yaratishni o'rgatadi.

Ilgari, topshiriq bilan bog'liq elektron pochta xabarini olganimda, men ushbu elektron pochtaga "Vazifa" toifasini belgilab, yangi tegishli vazifa yaratishni davom ettirdim. Rostini aytsam, bu jarayon haqiqatan ham ko'p vaqt talab etadi. Men barcha ma'lumotlarni oldindan yozishim kerak, chunki bu tafsilotlar yangi vazifada talab qilinishi kerak. Ammo endi, VBA yordamida Outlook har safar elektron pochtaga “Vazifa” toifasini belgilaganimda avtomatik ravishda yangi vazifa yaratishi mumkin. Agar siz ushbu maslahatga qiziqsangiz, ularni batafsil olish uchun o'qing.

E-pochtaga ma'lum bir toifa tayinlanganda avtomatik vazifa yaratish

1. Boshlash uchun Outlook-ni ishga tushiring va "Dasturchi" yorlig'iga o'ting.
2. Ushbu yorliqda siz "Visual Basic" tugmasini topishingiz va bosishingiz mumkin.
3. Keyin "Microsoft Visual Basic for Applications" ning yangi oynasi ochiladi. Unda siz "ThisOutlookSession" loyihasini ikki marta bosishingiz kerak.
4. Keyin quyidagi VBA kodlarini "ThisOutlookSession" loyiha oynasiga nusxalashingiz kerak.

Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

5. Shundan so'ng siz ushbu kodni imzolashingiz kerak bo'ladi. Bunga erishish uchun Office o'rnatilgan yordam dasturidan foydalanishingiz mumkin - "VBA loyihalari uchun raqamli sertifikat". Batafsilroq qadamlar uchun ushbu maqoladagi 2-bosqichga murojaat qilishingiz mumkin "Outlook-da keraksiz elektron pochtalarni o'qilgan deb avtomatik belgilash uchun 2 qadam".
6. Keyinchalik tashqi zararli makrosning oldini olish uchun siz "Ishonch markazi" ga murojaat qilishingiz va faqat raqamli imzolangan makroslarni yoqish uchun so'l sozlamalarini o'zgartirishingiz kerak.
7. Oxir-oqibat, siz sinab ko'rishingiz mumkin.

• Pochta elementini taklif qiling va unga quyidagi skrinshot kabi ma'lum bir toifani tayinlang:
• Bir vaqtning o'zida yangi vazifa avtomatik ravishda yaratiladi va yangi qalqib chiquvchi oynada ko'rsatiladi.

Shubhali elektron pochta xabarlarida zararli makroslarga yorliqlarni saqlang

Imzolanmagan barcha tashqi makrolarni bloklash juda muhim, chunki ularda viruslar yoki zararli dasturlar boʻlishi mumkin, bu esa Outlook maʼlumotlaringizga osonlik bilan zarar etkazishi mumkin. Shuning uchun foydalanuvchilar makroslar bilan birga keladigan elektron pochta xabarlariga e'tibor berishlari kerak. Bundan tashqari, diqqatga sazovor narsaga sarmoya kiritish juda tavsiya etiladi buzilgan Outlook ma'lumotlarini tuzatish vositasikabi DataNumen Outlook Repair. Kutilmagan Outlook halokatiga uchraganingizda, u sizga yordam berishi mumkin.

Muallif kirish:

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