如何在MS Access中实现点击电话号码唤起MS Teams拨号功能

实现逻辑 #

和你在Excel中使用=HYPERLINK(CONCATENATE("TEL:",A1))的原理完全一致，调用系统内置的TEL: URI协议唤起默认拨号程序，只需要在Access中通过窗体+少量配置即可实现，不需要复杂开发。

操作步骤 #

• 先确认系统TEL:协议默认打开程序已绑定Teams：你之前在Excel中操作过的话该配置已生效，未配置的话可以随便创建一个内容为<a href="TEL:10086">测试</a>的HTML文件，点击后选择「始终用Teams打开」即可完成绑定。
• 打开存储客户数据的Access表，将电话号码字段设置为普通文本类型，不要使用超链接类型。
• 创建用于外呼团队使用的客户数据窗体，推荐使用连续窗体样式方便批量浏览客户信息，将电话号码字段拖入窗体生成对应文本框控件。
• 给电话号码文本框添加单击事件：
  1. 选中文本框，右键打开「属性表」，切换到「事件」选项卡，找到「单击」事件，选择「事件过程」，点击右侧的...进入VBA编辑界面。
  2. 输入如下代码：

  Private Sub 电话号码文本框名_Click()
      ' 先判断字段非空再触发拨号
      If Nz(Me.电话号码文本框名, "") <> "" Then
          Application.FollowHyperlink "TEL:" & Me.电话号码文本框名
      End If
  End Sub
  

  3. 把代码中的电话号码文本框名替换为你窗体里该文本框的实际名称，可在属性表的「全部」选项卡下的「名称」栏查看。
• 保存窗体后切换到窗体视图，点击任意有效号码即可直接唤起Teams，自动把号码填充到拨号盘。

无VBA替代方案 #

如果不想使用VBA，可以在窗体中插入超链接控件，将控件的「控件来源」设置为表达式：="TEL:" & [你的电话号码字段名]，显示文本绑定为电话号码字段即可，效果和VBA方案一致。

优化建议 #

可以在电话号码文本框的属性表「其他」选项卡下，将「鼠标指针」设置为超链接手型，提示用户该字段可点击。

内容的提问来源于stack exchange，提问作者James