![向 Outlook 添加宏](https://linux22.com/image/1323901/%E5%90%91%20Outlook%20%E6%B7%BB%E5%8A%A0%E5%AE%8F.png)
有人问如何在 Outlook 2010 中添加宏,但我不太清楚答案。我希望在发送给特定人群(例如:议程编辑者)的电子邮件中显示一行特定的文本。该文本是“这些是 2012 年 7 月 23 日的最新更改(日期自动更新)。”我应该在哪里配置它或放置此文本?
答案1
尝试这个
Sub Boilerplate_Agenda_Editors()
Dim objMail As MailItem
Dim allRecipients As Recipients
Set objMail = Application.CreateItem(olMailItem)
Set allRecipients = objMail.Recipients
allRecipients.Add "Your distribution list name inside the quotes"
allRecipients.ResolveAll
objMail.Subject = "Attention Agenda Editors"
objMail.Body = "These are the current changes for " & Format(Now, "mmmm dd, yyyy") & "."
SendKeys "^{END}"
objMail.Display
Set objMail = Nothing
Set allRecipients = Nothing
End Sub
编辑器和按钮帮助 -http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/
宏安全性应设置为中。