将Outlook约会中的日期/时间复制/粘贴到与文本相同的约会主体中

Question

要求vba代码将Outlook约会中的日期/时间复制/粘贴到约会主体中，以便更轻松地将其复制/粘贴到其他文档中，但立即被告知没有人可以'编写整个VBA代码”，所以我确实说过要自己弄清楚然后再发给有类似问题的任何人：

Public Sub CopyDateTime()
With ActiveInspector.CurrentItem
.Body = .Body & " " & Format(.Start, "dddd dd mmm yyyy at hh:mm am/pm")
End With
End Sub

它实际上将日期/时间附加到任何现有内容上，而不会覆盖它。享受吧！