如何将手动发送Outlook邮件的时间捕获至网页表格？

方案一：Outlook VBA + Access 数据库（可行且符合需求） #

这个思路和你提到的Excel方案逻辑一致，通过Outlook的事件监听捕获发送动作，结合Access存储数据，最后网页读取数据展示。

1. 网页端生成带标记的Outlook草稿邮件 #

用JS通过ActiveX创建Outlook邮件，同时添加自定义属性标记这是网页生成的邮件，方便后续VBA识别：

function createOutlookDraft() {
    try {
        // 创建Outlook应用实例
        var outlookApp = new ActiveXObject("Outlook.Application");
        var mailItem = outlookApp.CreateItem(0); // 0代表邮件项
        
        // 设置邮件基本信息
        mailItem.Subject = "网页生成的测试邮件";
        mailItem.To = "recipient@example.com";
        mailItem.Body = "这是网页生成的草稿邮件";
        
        // 添加自定义属性标记，用于VBA识别
        var userProp = mailItem.UserProperties.Add("FromWebGenerated", 1); // 1代表文本类型
        userProp.Value = "True";
        
        // 保存为草稿（不自动发送）
        mailItem.Save();
        // 打开邮件窗口让用户编辑/发送
        mailItem.Display();
    } catch (e) {
        alert("创建邮件失败：" + e.message);
    }
}

注意：这段代码仅支持IE浏览器或允许ActiveX的浏览器环境，现代Chrome/Firefox默认禁用ActiveX，若需兼容需调整浏览器设置。

2. Outlook VBA 监听发送事件并写入Access #

打开Outlook，按Alt+F11进入VBA编辑器，双击ThisOutlookSession，粘贴以下代码：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim dbConn As Object
    Dim sqlStr As String
    Dim sendTime As String
    
    ' 检查当前发送的是否是邮件项，且带有网页生成的标记
    If TypeName(Item) = "MailItem" Then
        Set objMail = Item
        On Error Resume Next
        Dim webMark As String
        webMark = objMail.UserProperties("FromWebGenerated").Value
        On Error GoTo 0
        
        If webMark = "True" Then
            ' 获取发送时间（UTC+8，根据你的时区调整）
            sendTime = Format(Now(), "yyyy-mm-dd hh:mm:ss")
            
            ' 连接Access数据库（替换为你的数据库路径）
            Set dbConn = CreateObject("ADODB.Connection")
            dbConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\MailLog.accdb;"
            
            ' 插入发送记录（转义单引号避免SQL语法错误）
            sqlStr = "INSERT INTO MailSendLog (Subject, SendTime) VALUES ('" & Replace(objMail.Subject, "'", "''") & "', '" & sendTime & "')"
            dbConn.Execute sqlStr
            
            ' 关闭连接
            dbConn.Close
            Set dbConn = Nothing
        End If
    End If
End Sub

提前在Access中创建MailSendLog表，字段：ID（自动编号，主键）、Subject（文本）、SendTime（日期/时间）。

3. 网页读取Access数据并填充表格 #

用JS读取Access数据库，把记录渲染到网页表格：

<table id="sendLogTable" border="1">
    <thead>
        <tr>
            <th>邮件主题</th>
            <th>发送时间</th>
        </tr>
    </thead>
    <tbody>
        <!-- 数据将通过JS填充 -->
    </tbody>
</table>

<script>
function loadSendLog() {
    try {
        var conn = new ActiveXObject("ADODB.Connection");
        var rs = new ActiveXObject("ADODB.Recordset");
        conn.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\MailLog.accdb;");
        
        rs.Open("SELECT Subject, SendTime FROM MailSendLog ORDER BY SendTime DESC", conn);
        
        var tableBody = document.getElementById("sendLogTable").querySelector("tbody");
        tableBody.innerHTML = "";
        
        while (!rs.EOF) {
            var row = document.createElement("tr");
            var subjectCell = document.createElement("td");
            subjectCell.textContent = rs.Fields("Subject").Value;
            var timeCell = document.createElement("td");
            timeCell.textContent = rs.Fields("SendTime").Value;
            
            row.appendChild(subjectCell);
            row.appendChild(timeCell);
            tableBody.appendChild(row);
            
            rs.MoveNext();
        }
        
        rs.Close();
        conn.Close();
    } catch (e) {
        alert("加载日志失败：" + e.message);
    }
}

// 页面加载时自动加载日志
window.onload = loadSendLog;
</script>

方案二：网页端直接实现（不可行） #

浏览器和Outlook是完全独立的进程，没有原生的跨进程通信API，也无法直接监听Outlook的操作事件。不借助VBA或其他外部工具的话，网页本身无法捕获Outlook的手动发送动作，因此这个方案不可行。

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