如何通过Outlook VBA开发自动对特定发件人回复指定内容？

【盗情不盗爱】

我需要对每一封abc@abc.com向我发送的邮件直接在原邮件基础上答复“同意放行”
根据网上的一些资源写了下面的代码，然后设置规则
但无法起作用，不知道是什么原因
请大神帮我看看，或者帮我写个更简短的代码。
拜谢

1. Sub AutoReply(Item As Outlook.MailItem)
   
2.     Dim myAutoReplyMailItem As Outlook.MailItem
   
3.     Dim myReplyHTMLBody As String
   
4. 
   
5.     myReplyHTMLBody = CreateHTMLBody(1)
   
6. 
   
7.     If (Item.UnRead) And (Item.SenderEmailAddress = "abc@abc.com") Then
   
8.         Item.UnRead = False
   
9.         Set myAutoReplyMailItem = Item.Reply
   
10.         myAutoReplyMailItem.BodyFormat = olFormatHTML
    
11.         myAutoReplyMailItem.HTMLBody = myReplyHTMLBody & myAutoReplyMailItem.HTMLBody
    
12.         myAutoReplyMailItem.Send
    
13.         Item.Save
    
14.     End If
    
15. 
    
16.     Set Item = Nothing
    
17.     Set myAutoReplyMailItem = Nothing
    
18. End Sub
    
19. 
    
20. Public Function CreateHTMLBody(ID As Integer) As String
    
21.     'Creates a new e-mail item and modifies its properties
    
22.     Dim objHTMLBody As String
    
23. 
    
24.     If ID = 1 Then
    
25.         objHTMLBody = _
    
26.         "<font face = 微软雅黑 size = 3>" & "同意放行"
    
27.     End If
    
28. 
    
29.     CreateHTMLBody = objHTMLBody
    
30. End Function

复制代码

闻启学

这个直接用代码 来做

利用事件触发代码