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