如何设置将Outlook任务移至日历作为约会时任务正文为空

嘿，这个问题我太熟了——Outlook默认把任务转成约会时，总会硬塞一堆Status、Owner这类你没写过的字段到正文里，确实挺烦人的。可惜Outlook本身没有直接的开关能关掉这个默认行为，但咱们有两个实用办法解决，看哪个适合你：

一、用VBA宏一劳永逸（推荐） #

这个办法能让你一键把任务转成干净的约会，正文自动为空，彻底告别手动删除的麻烦。步骤如下：

1. 打开Outlook，按下Alt + F11打开VBA编辑器
2. 在左侧导航栏里，找到并展开你当前的Outlook项目（比如叫Project1），双击Microsoft Outlook Objects下面的ThisOutlookSession
3. 把下面这段代码粘贴进去：

Sub ConvertTaskToCleanAppointment()
    Dim selectedTask As Object
    Dim newAppointment As AppointmentItem
    
    ' 确保你选中了一个任务
    If Application.ActiveExplorer.Selection.Count <> 1 Then
        MsgBox "请先选中一个任务再运行这个宏哦！", vbExclamation
        Exit Sub
    End If
    
    Set selectedTask = Application.ActiveExplorer.Selection.Item(1)
    
    ' 检查选中的是不是任务项
    If TypeName(selectedTask) = "TaskItem" Then
        ' 创建新的约会
        Set newAppointment = Application.CreateItem(olAppointmentItem)
        
        ' 把任务的核心信息同步到约会（标题、时间、地点）
        newAppointment.Subject = selectedTask.Subject
        newAppointment.Start = selectedTask.StartDate
        newAppointment.End = selectedTask.DueDate
        newAppointment.Location = selectedTask.Location
        
        ' 关键：直接把正文设为空，拒绝多余内容
        newAppointment.Body = ""
        
        ' 打开约会窗口让你确认调整
        newAppointment.Display
        
        ' 要是想自动保存约会，取消下面这行的注释就行
        ' newAppointment.Save
    Else
        MsgBox "你选中的不是任务哦，请重新选择！", vbExclamation
    End If
End Sub

4. 保存代码，然后回到Outlook界面，右键点击顶部工具栏，选择「自定义功能区」
5. 在弹出的窗口里，勾选右侧的「开发工具」，点击「确定」，这样工具栏就会出现「开发工具」选项卡
6. 进入「开发工具」，点击「宏」，选中刚才创建的ConvertTaskToCleanAppointment，点击「添加到快速访问工具栏」

以后你想把任务转成约会时，直接选中任务，点击快速访问工具栏上的这个宏按钮就行，出来的约会正文就是空的，完美！

二、手动快速清除（适合偶尔操作的情况） #

如果你不想折腾宏，每次转完约会后，可以用快捷键快速删除多余内容：

• 打开转换后的约会窗口，按下Ctrl + A全选正文所有内容
• 按下Delete键清空，搞定

这个办法简单但需要每次手动操作，适合不经常转换任务的朋友。

备注：内容来源于stack exchange，提问作者Sami