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