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