如何在点击Outlook发送按钮时对接CRM并存储会议信息？

以下提供两种可行方案，分别适配单机快速实现和企业级部署场景：

方案一：Outlook VBA（单机快速落地） #

适合个人或小团队快速验证需求，无需额外开发环境。

1. 打开Outlook VBA编辑器：按下Alt + F11组合键。
2. 创建类模块：右键点击项目管理器中的Microsoft Outlook 对象，选择「插入」→「类模块」，将模块命名为clsMeetingTracker。
3. 粘贴类模块代码：

Private WithEvents olApp As Outlook.Application

Private Sub Class_Initialize()
    Set olApp = Outlook.Application
End Sub

Private Sub olApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim meetingItem As Outlook.AppointmentItem
    ' 仅处理会议（预约）类型的发送事件
    If TypeName(Item) = "AppointmentItem" Then
        Set meetingItem = Item
        
        ' 提取核心信息
        Dim organizer As String, subject As String
        Dim startTime As Date
        organizer = meetingItem.Organizer
        subject = meetingItem.Subject
        startTime = meetingItem.Start
        
        ' 连接CRM数据库并插入数据（以SQL Server为例，按需修改连接串）
        Dim conn As Object, connStr As String, sql As String
        Set conn = CreateObject("ADODB.Connection")
        connStr = "Provider=SQLOLEDB;Data Source=你的CRM服务器地址;Initial Catalog=CRM数据库名;User ID=数据库账号;Password=数据库密码;"
        
        On Error Resume Next
        conn.Open connStr
        If Err.Number <> 0 Then
            MsgBox "无法连接CRM数据库: " & Err.Description
            Cancel = True
            GoTo Cleanup
        End If
        
        ' 转义单引号避免SQL语法错误
        sql = "INSERT INTO 会议同步表(组织者, 主题, 开始时间) VALUES ('" & _
              Replace(organizer, "'", "''") & "', '" & _
              Replace(subject, "'", "''") & "', '" & _
              Format(startTime, "yyyy-mm-dd hh:mm:ss") & "')"
        
        conn.Execute sql
        If Err.Number <> 0 Then
            MsgBox "同步到CRM失败: " & Err.Description
            Cancel = True ' 可选：同步失败时取消会议发送
        End If
        
Cleanup:
        conn.Close
        Set conn = Nothing
    End If
End Sub

4. 初始化跟踪类：打开ThisOutlookSession模块，粘贴以下代码：

Dim meetingTracker As clsMeetingTracker

Private Sub Application_Startup()
    Set meetingTracker = New clsMeetingTracker
End Sub

5. 启用宏：打开Outlook选项→信任中心→信任中心设置→宏设置，选择「启用所有宏」（或「通知数字签署的宏」，需给VBA代码签名）。

注意事项 #

• 数据库连接串需根据你的CRM数据库类型调整（如Access、MySQL等）。
• 务必处理单引号转义，避免SQL语法错误与注入风险。

方案二：Office VSTO Add-in（企业级部署） #

适合需要跨用户统一部署、集成复杂CRM系统的场景，以C#为例：

1. 创建VSTO项目：在Visual Studio中创建「Outlook 外接程序」项目。
2. 绑定ItemSend事件：在ThisAddIn.cs中添加以下代码：

private void ThisAddIn_Startup(object sender, EventArgs e)
{
    Application.ItemSend += Application_ItemSend;
}

private void Application_ItemSend(object Item, ref bool Cancel)
{
    var meeting = Item as Outlook.AppointmentItem;
    if (meeting == null) return;

    // 提取会议信息
    string organizer = meeting.Organizer;
    string subject = meeting.Subject;
    DateTime startTime = meeting.Start;

    // 同步到CRM（示例使用Entity Framework连接数据库）
    try
    {
        using (var crmDb = new CrmDbContext())
        {
            crmDb.MeetingRecords.Add(new MeetingRecord
            {
                Organizer = organizer,
                Subject = subject,
                StartTime = startTime
            });
            crmDb.SaveChanges();
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show($"同步CRM失败: {ex.Message}");
        Cancel = true; // 可选：失败时取消发送
    }
}

3. 配置CRM集成：根据你的CRM系统，选择直接连接数据库或调用官方REST API（如Dynamics CRM Web API），后者更安全且符合CRM集成规范。

注意事项 #

• 部署时需将Add-in打包为安装程序，分发给企业用户。
• 若使用CRM API，需处理身份验证（如OAuth2）。

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