我玩过很多次"PR_SPAM_BLOCKED_SENDERS“("http://schemas.microsoft.com/mapi/proptag/0x6106001F"),并使用VBA在OL (o365)中实时操作/更新我的垃圾邮件列表,它工作得很好。我早就忘记了如何以及在哪里获得了它的proptag,但不知何故我做到了,现在我还需要获得安全列表(PR_SPAM_TRUSTED_SENDERS_W),但是到目前为止我找到的唯一的proptag ("http://schemas.microsoft.com/mapi/proptag/0x001f0418")失败了:-(
你能帮我个忙吗--正确的proptag是什么?
以下是一些基本代码,它们对被阻止的(PR_SPAM_BLOCKED_SENDERS)很有效,但对安全(PR_SPAM_TRUSTED_SENDERS_W)无效:
Const PR_SPAM_TRUSTED_SENDERS_W = "http://schemas.microsoft.com/mapi/proptag/0x001f0418"
Const PR_SPAM_BLOCKED_SENDERS = "http://schemas.microsoft.com/mapi/proptag/0x6106001F"
Set oStorage = oInbox.GetStorage("Junk E-mail Rule", olIdentifyBySubject)
Set oPropAcc = oStorage.propertyAccessor
sBlockedSenders = oPropAcc.GetProperty(PR_SPAM_BLOCKED_SENDERS)
Debug.Print sBlockedSenders 首先要感谢大家!
诚挚的问候,
Bjarne Dein
发布于 2018-09-19 06:07:11
数据存储在PR_EXTENDED_RULE_CONDITION二进制属性中-使用OutlookSpy查看规则-转到收件箱文件夹,单击IMAPIFolder按钮,在“关联内容”选项卡上找到隐藏的规则消息,打开该消息。选择PR_EXTENDED_RULE_CONDITION属性- OutlookSpy将对其进行解析并显示其数据。您还可以查看IMAPIFolder | PR_RULES_TABLE选项卡。
您可以解析该属性,也可以使用Redemption -它公开了RDOJunkEmailOptions对象:
set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set JunkOptions = Session.JunkEmailOptions
for each vAddress in JunkOptions.TrustedSenders
Debug.Print vAddress
next对于Exchange邮箱,该规则如下所示:
rt : RES_AND
cRes : 2
lpRes :
rt : RES_OR
cRes : 2
lpRes :
rt : RES_OR
cRes : 1
lpRes :
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : blocked.sender@demo.com
rt : RES_AND
cRes : 2
lpRes :
rt : RES_OR
cRes : 2
lpRes :
rt : RES_AND
cRes : 2
lpRes :
rt : RES_EXIST
res.resExist :
ulPropTag : PR_CONTENT_FILTER_SCL (0x40760003)
rt : RES_PROPERTY
res.resProperty :
relop : RELOP_GT
ulPropTag : PR_CONTENT_FILTER_SCL (0x40760003)
lpProp :
ulPropTag : PR_CONTENT_FILTER_SCL (0x40760003)
Value : -1
rt : RES_OR
cRes : 0
lpRes :
rt : RES_NOT
res.resNot :
lpRes :
rt : RES_OR
cRes : 2
lpRes :
rt : RES_OR
cRes : 1
lpRes :
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_SUBSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : @safe.sender.domain.com
rt : RES_SUBRESTRICTION
resSub :
ulSubObject : PR_MESSAGE_RECIPIENTS
lpRes : rt : RES_OR
cRes : 0
lpRes :
rt : RES_NOT
res.resNot :
lpRes :
rt : RES_OR
cRes : 3
lpRes :
rt : RES_OR
cRes : 5
lpRes :
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : safe.sender.1@demo.com
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : safe.sender.2@demo.com
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : safe.sender.3@demo.com
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : safe.sender.4@demo.com
rt : RES_CONTENT
resContent :
ulFuzzyLevel : FL_FULLSTRING FL_IGNORECASE
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
lpProp :
ulPropTag : PR_SENDER_EMAIL_ADDRESS_W (0x0C1F001F)
Value : safe.sender.5@demo.com
rt : RES_SUBRESTRICTION
resSub :
ulSubObject : PR_MESSAGE_RECIPIENTS
lpRes : rt : RES_OR
cRes : 0
lpRes :
rt : RES_OR
cRes : 0
lpRes : https://stackoverflow.com/questions/52393658
复制相似问题