VBA outlook实战#01--自动回复邮件

VBA编程实现自动回复邮件

通过脚本实现，接收邮件后，自动阅读回复，回复内容可自定义。

1.脚本代码

首先通过CreateHTMLBody方法创建自动回复邮件的内容，该内容由HTML语法实现，可以设置文本字体、字号（大小）和颜色。

然后读取接收到的邮件，编写判断逻辑。这里是根据发信人地址，进行自动回复。也可以改写为，邮件内容、邮件名称等。

最后，回复邮件，邮件格式需要为olFormatHTML，这样才可以设置字体等。

Sub AutoReply(Item As Outlook.mailItem)
Dim myAutoReplyMailItem As Outlook.mailItem
Dim myReplyHTMLBody As String

myReplyHTMLBody = CreateHTMLBody(1)

If (Item.UnRead) And (Item.SenderEmailAddress = "yong.yan@163.com") Or (Item.SenderEmailAddress = "rdmod01@163.com") Or (Item.SenderEmailAddress = "ju.li@163.com") Then
Item.UnRead = False
Set myAutoReplyMailItem = Item.Reply
myAutoReplyMailItem.BodyFormat = olFormatHTML
myAutoReplyMailItem.HTMLBody = myReplyHTMLBody & myAutoReplyMailItem.HTMLBody
myAutoReplyMailItem.Send
Item.Save
End If

Set Item = Nothing
Set myAutoReplyMailItem = Nothing
End Sub

Public Function CreateHTMLBody(ID As Integer) As String
'Creates a new e-mail item and modifies its properties
Dim objHTMLBody As String

If ID = 1 Then
objHTMLBody = _
"<font face = 微软雅黑 size = 3>" & _
"感谢你的来信。我是<font color=red>机器人小星</font>，邮件我已代为阅读。" & _
"<br/> <br/> " & _
"来自小星的智能回复</font>"
End If

CreateHTMLBody = objHTMLBody
End Function

2.添加脚本

依次点击，完成后，邮件就可以自动阅读+回复。

文件–>信息–>管理规则和通知–>新建规则–>对我接收的邮件应用规则–>仅在次计算机上–>运行脚本–>点击脚本–>选择脚本AutoReply–>完成