Agar siz bir nechta tanlangan elektron pochta xabarlarini jo'natuvchilarni bloklash qoidasini yaratmoqchi bo'lsangiz, odatda, avval jo'natuvchilarni yozib olishingiz va keyin qoidani qo'lda yaratishingiz kerak. Bu juda muammoli. Shunday qilib, bu erda biz uni bir marta bosish orqali olishning tezroq usulini baham ko'ramiz.
Ba'zi foydalanuvchilar Outlook-da o'rnatilgan "ant-spam" funksiyasi ular umid qilgan darajada samarali emas deb o'ylashadi. Shuning uchun ular jo'natuvchilarni blokirovka qilish uchun Outlook qoidalarini yaratishga odatlangan. Endi, quyida biz bir nechta elektron pochta jo'natuvchilarini blokirovka qilish qoidasini yaratishning tezkor usulini taqdim etamiz.
Bir nechta elektron pochta xabarlarini yuboruvchilarni blokirovka qilish qoidasini tezda yarating
- Sifatida uchuntart, Outlook dasturini ishga tushiring.
- Keyin, "Alt + F11" yorlig'i orqali VBA muharriri oynasiga kiring.
- Keyin, yangi oynada, foydalanilmagan modulga quyidagi VBA kodini qo'ying.
Sub CreateRuleForBlockingMultipleSenders()
Dim objRules As Outlook.Rules
Dim objRule As Outlook.Rule
Dim objMoveRuleAction As Outlook.MoveOrCopyRuleAction
Dim objFromCondition As Outlook.ToOrFromRuleCondition
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objJunkFolder As Outlook.Folder
Set objRules = Application.Session.DefaultStore.GetRules()
'Create a rule
Set objRule = objRules.Create("Block Senders", olRuleReceive)
Set objFromCondition = objRule.Conditions.From
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
'Get Junk Email folder
Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
For i = objSelection.Count To 1 Step -1
If objSelection.Item(i).Class = olMail Then
Set objMail = objSelection.Item(i)
'Add the email senders to rule condition
With objFromCondition
.Enabled = True
.Recipients.Add objMail.SenderEmailAddress
.Recipients.ResolveAll
End With
'Move the emails from blocked senders to Junk Email folder
Set objMoveRuleAction = objRule.Actions.MoveToFolder
With objMoveRuleAction
.Enabled = True
.Folder = objJunkFolder
End With
End If
Next
objRules.Save
End Sub
- Shundan so'ng, "Outlook-da VBA kodini qanday ishlatish kerak", ushbu makrosni Tez kirish asboblar paneli yoki lentasiga qo'shing.
- Keyinchalik, VBA muharriridan odatdagidek chiqing.
- Nihoyat, sinab ko'rish uchun quyidagi amallarni bajaring.
- Avvalo, siz yuboruvchilarni bloklamoqchi bo'lgan elektron pochta xabarlarini tanlang.
- Keyin yangi makro tugmasini bosing.
- Makro tugallangandan so'ng, siz "Fayl" menyusiga o'tishingiz va quyidagi rasmda ko'rsatilganidek, yangi qo'shilgan qoidani tekshirish uchun "Qoidalar va ogohlantirishlarni boshqarish" tugmasini bosing.
Zararli elektron pochta xabarlarini ko'rfazda saqlang
Qaysi elektron pochta mijozidan foydalanmasligingizdan qat'i nazar, siz tez-tez noma'lum jo'natuvchilardan elektron pochta xabarlarini olishingiz kerak. Most elektron pochta xabarlari reklama spamlari va hatto zararli makroslarni o'z ichiga olishi mumkin. Ular bir zumda Outlook faylingizga zarar etkazishi mumkin. Shunday qilib, Outlook-da siz noma'lum elektron pochta xabarlarini blokirovka qilish uchun samarali choralar ko'rishingiz kerak. Bundan tashqari, agar imkoningiz bo'lsa, PSTni tiklash kabi kuchli vositani tayyorlash tavsiya etiladi. DataNumen Outlook Repair. U qila oladi Outlook-ni ta'mirlash fayl qanchalik jiddiy shikastlangan bo'lishidan qat'iy nazar, ter to'kmasdan.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sqlni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com