如何在Microsoft Outlook中克隆现有邮件或日历条目为新的草稿项?
如何在Microsoft Outlook中克隆现有邮件或日历条目为新的草稿项?
太懂这种需求了!IBM Notes的「Copy into new」确实好用,Outlook里虽然没有一模一样的按钮,但有几种方法能实现完全相同的效果——把现有邮件/日历条目克隆成干净的新草稿,保留所有收件人、参会者和内容,完全没有转发的多余标记:
一、最快捷的拖拽法(推荐给普通用户)
- 克隆邮件:在邮件列表里找到要复制的邮件,按住Ctrl键不放,把它拖到左侧导航栏的「草稿」文件夹上,松开鼠标后,立刻会生成一个和原邮件内容、收件人(含抄送/密送)完全一致的新草稿,直接打开修改即可,毫无转发痕迹。
- 克隆日历条目:在日历视图里找到目标会议/约会,按住Ctrl键拖拽到日历的空白区域(或者直接在条目上右键选择「复制」,再右键空白处选「粘贴」),就能得到一个完全相同的新日历草稿,你可以随时修改时间、地点或内容,参会者信息会完整保留。
二、窗口内直接操作法
- 邮件操作:双击打开要克隆的邮件(一定要在独立窗口打开,别用阅读窗格),点击「文件」>「另存为」,把邮件保存为
.msg格式到本地,之后双击这个保存的文件,它就会以全新草稿的形式打开,所有收件人、格式都和原邮件一致。 - 日历条目操作:打开目标会议/约会,点击顶部「会议」选项卡的「复制」按钮,选择下拉菜单里的「复制为新会议」,瞬间就能生成一个保留所有参会者、时间地点的新草稿,直接编辑即可。
三、一键克隆的VBA宏(适合高频使用的用户)
如果你经常需要克隆邮件或日历条目,可以写个简单的宏来实现一键操作:
克隆邮件的宏代码
Sub CloneEmail() Dim objMail As Outlook.MailItem Dim objNewMail As Outlook.MailItem Set objMail = Application.ActiveInspector.CurrentItem If Not objMail Is Nothing Then Set objNewMail = objMail.Copy objNewMail.UnRead = True objNewMail.Display End If End Sub
克隆日历条目的宏代码
Sub CloneCalendarItem() Dim objAppt As Outlook.AppointmentItem Dim objNewAppt As Outlook.AppointmentItem Set objAppt = Application.ActiveInspector.CurrentItem If Not objAppt Is Nothing Then Set objNewAppt = objAppt.Copy objNewAppt.Display End If End Sub
使用方法:先打开Outlook的「开发者选项」(如果没显示,去「文件」>「选项」>「自定义功能区」勾选开发者选项),点击「Visual Basic」,插入一个新模块,粘贴对应代码,之后你可以把宏添加到快速访问工具栏,以后打开要克隆的邮件/日历条目,点击按钮就能直接生成新草稿。
备注:内容来源于stack exchange,提问作者Joe




