我女朋友做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