OutLook 中添加集体回复功能

我女朋友做hr工作，有一次帮她筛简历，只要没有英文简历的就需要发邮件要，有英文简历的就发一个简单的通知。看起来挺简单，好，第一步，先把没有英文简历的邮件标上蓝旗，有英文简历的标对号，第二步，分别集体回复蓝旗和对号的邮件。可作完第一步才发现outlook 中只有reply all 而没有可选邮件回复，无奈，手工回复了所有的邮件，等发完三十封之后，已经气喘嘘嘘了。一气之下，决定作一个可以群体恢复的控件。
   
       需求： 选中若干邮件，点击按钮，新建邮件并将选中邮件的发件人地址自动添加到收件人项目中。
       编程工具：outlook 绑定的visual basic 宏编辑器（）
  
       1，打开编辑器
               写入代码：
Sub ReplyMessage_version02()
    Dim msg As Outlook.MailItem
    Set msg = Application.CreateItem(olMailItem)
    msg.Subject = "Ethos"
    msg.To = GetAddressFromSelection()
    msg.Display
End Sub

Function GetAddressFromSelection()
Dim myOlSel As Outlook.Selection
    Dim x As Integer
    adresses = ""
    Set myOlSel = Application.ActiveExplorer.Selection
     For x = 1 To myOlSel.Count
          adresses = adresses & myOlSel.Item(x).SenderEmailAddress & ";"
    Next x
    GetAddressFromSelection = adresses
End Function
End Sub

2， 好，这时就可以选中邮件运行宏命令了。为了方便可以在工具栏编辑按钮来调用命令。
这次为了方便采用的outlook绑定vb， 有时间再尝试C++,c# :)

Reference:http://outlookcode.com