Vba 如何在Outlook联系人窗体中使用按钮启动宏

我在Outlook 2019中有一个用户定义的表单

我已经创建了一个按钮，想知道如何通过按下表单中的此按钮来启动宏

要启动的宏位于ThisOutlookSession中，它将光标设置在联系人表单正文的末尾：

Public Sub SetCursor()
  Dim Ins As Outlook.Inspector
  Dim Doc As Word.Document
  Dim Range As Word.Range
  Dim Pos As Long
Set Ins = Application.ActiveInspector
  Set Doc = Ins.WordEditor
  If Not Doc Is Nothing Then
    Pos = Doc.Range.End - 1
    Set Range = Doc.Range(Pos, Pos)
    Range.Select
  End If
End Sub

启动宏的代码位于Outlook窗体中：

选项显式
私有子命令按钮1_单击（）
隐藏
设置光标
端接头

Public Sub CommandButton1_Click()
    CODE TO CALL THE MACRO NEEDED!?
End Sub