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.