Kung nais mong lumikha ng isang panuntunan upang harangan ang mga nagpadala ng maraming napiling mga email, karaniwan, kailangan mo munang isulat ang mga nagpadala at pagkatapos ay manu-manong lumikha ng isang panuntunan. Ito ay medyo mahirap. Kaya, dito magbabahagi kami ng isang mas mabilis na pamamaraan upang makuha ito sa pamamagitan ng isang pag-click.
Iniisip ng ilang mga gumagamit na ang built-in na tampok na "ant-spam" sa Outlook ay hindi kasing epektibo ayon sa inaasahan nila. Samakatuwid, nasanay sila sa paglikha ng mga patakaran ng Outlook upang harangan ang mga nagpapadala. Ngayon, sa mga sumusunod, magpapakilala kami ng isang mabilis na pamamaraan upang lumikha ng isang panuntunan upang harangan ang mga nagpapadala ng maraming mga email.
Mabilis na Lumikha ng isang Panuntunan upang Harangan ang Mga Nagpadala ng Maramihang Mga Email
- Para sa bilangtart, ilunsad ang application ng Outlook.
- Pagkatapos, ipasok ang window ng editor ng VBA sa pamamagitan ng shortcut na "Alt + F11".
- Susunod, sa bagong window, ilagay ang sumusunod na VBA code sa isang hindi nagamit na module.
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
- Pagkatapos nito, alinsunod sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook“, Idagdag ang macro na ito sa Quick Access Toolbar o ribbon.
- Kasunod, lumabas nang normal sa editor ng VBA.
- Panghuli, gawin ang mga sumusunod na hakbang upang subukan.
- Una sa lahat, piliin ang mga email na ang mga nagpadala ay nais mong harangan.
- Pagkatapos, i-click ang bagong pindutan ng macro.
- Matapos ang mga pagwawakas ng macro, maaari kang pumunta sa menu na "File" at i-click ang pindutang "Pamahalaan ang Mga Panuntunan at Mga Alerto" upang suriin ang bagong idinagdag na panuntunan, tulad ng ipinakita sa imahe sa ibaba.
Panatilihin ang mga nakakahamak na Email sa Bay
Hindi mahalaga kung anong email client ang iyong ginagamit, dapat mong madalas na makatanggap ng mga email mula sa hindi kilalang nagpadala. Most ng mga email ay maaaring mga advertising spam at naglalaman pa ng mga nakakahamak na macros. Maaari nilang mapinsala ang iyong file sa Outlook sa isang mahirap. Kaya, sa Outlook, dapat kang gumawa ng mga mabisang hakbang upang ma-block ang hindi kilalang mga email. Bilang karagdagan, kung kaya mo ito, ipinapayong maghanda ng isang malakas na tool sa pagbawi ng PST, tulad ng DataNumen Outlook Repair. Maaari ito kumpunihin ang Outlook mag-file nang hindi pinagpapawisan ng pawis gaano man ito seryoso.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa