要在宏中更改什么以将日期添加到outlook联系人正文底部（绿色）_Outlook

要在宏中更改什么以将日期添加到outlook联系人正文底部（绿色）

outlook

要在宏中更改什么以将日期添加到outlook联系人正文底部（绿色）,outlook,Outlook,请提供代码帮助： Public Sub AddNote（） Dim DefaultMsg$ DefaultMsg=“” AddNote_Ex Application.ActiveInspector，DefaultMsg 端接头私有子AddNote_Ex（检查器作为Outlook.Inspector，可选消息作为字符串）将WdSel设置为单词。选择暗p& Msg=格式（日期，“mm/dd/yyyy”，vbUseSystemDayOfWeek，vbUseSystem）和_ “：”&Msg M

请提供代码帮助：

Public Sub AddNote（）
Dim DefaultMsg$
DefaultMsg=“”
AddNote_Ex Application.ActiveInspector，DefaultMsg
端接头
私有子AddNote_Ex（检查器作为Outlook.Inspector，可选消息作为字符串）
将WdSel设置为单词。选择
暗p&
Msg=格式（日期，“mm/dd/yyyy”，vbUseSystemDayOfWeek，vbUseSystem）和_
“：”&Msg
Msg=vbCrLf&“--”&vbCrLf&Msg
设置WdSel=GetCurrentWordSelection（检查器）
p=Len（Msg）-2
WdSel.Start=0
WdSel.End=0
WdSel.InsertBefore Msg
WdSel.Start=WdSel.Start+p
WdSel.End=WdSel.Start
端接头
私有函数GetCurrentWordSelection（OpenInspector作为Outlook.Inspector）作为Word.Selection
Dim Doc作为Word.Document
Dim Wd作为Word.Application
Set Doc=OpenInspector.WordEditor
Set Wd=Doc.Application
设置GetCurrentWordSelection=Wd.Selection
结束功能