如何通过COM接口访问Outlook VBA公共变量及实现与AutoHotkey双向通信？

一、直接通过COM访问ThisOutlookSession的公共变量？不可行 #

用ComObjActive("Outlook.Application")获取的是Outlook标准Application对象，该对象模型仅暴露Outlook内置的属性、方法与对象，VBA项目（含ThisOutlookSession）中定义的自定义公共变量不属于这个模型范畴，因此无法直接通过COM接口读取。

二、可行的双向通信方案 #

1. 利用Outlook命名属性（Named Properties） #

这是最贴合Outlook对象模型规范的方案，通过给Outlook内置对象（如Namespace、MailItem）添加自定义属性传递数据：

VBA设置属性代码：

Public Sub SetCustomVariable()
    Dim ns As Outlook.NameSpace
    Set ns = Application.GetNamespace("MAPI")
    ' 格式说明：http://schemas.microsoft.com/mapi/string/{GUID}/属性名
    ' 此处GUID为固定的字符串类型属性标识，无需修改
    ns.PropertyAccessor.SetProperty _
        "http://schemas.microsoft.com/mapi/string/{00020329-0000-0000-C000-000000000046}/AHK_CommVar", _
        "来自VBA的测试值"
End Sub

AutoHotkey读取属性代码：

olApp := ComObjActive("Outlook.Application")
olNS := olApp.GetNamespace("MAPI")
; 读取路径需与VBA中完全一致
commValue := olNS.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/string/{00020329-0000-0000-C000-000000000046}/AHK_CommVar")
MsgBox % "从Outlook读取的值：" commValue

双向通信时，AutoHotkey也可调用SetProperty修改属性值，VBA再读取即可。

2. 临时文件（简单易用） #

适合数据量小、实时性要求不高的场景，通过读写同一本地文件传递数据：

VBA写入变量到文件：

Public Sub WriteVarToFile()
    Dim filePath As String
    filePath = Environ("TEMP") & "\OL_AHK_Comm.txt" '使用系统临时目录规避权限问题
    Open filePath For Output As #1
    Print #1, "VBA的变量内容"
    Close #1
End Sub

AutoHotkey读取文件：

filePath := A_Temp "\OL_AHK_Comm.txt"
FileRead, varContent, %filePath%
MsgBox % "读取到的VBA变量：" varContent

双向通信只需让双方读写同一文件，可添加简单锁机制（如写入前检查文件是否存在）避免冲突。

3. Windows消息传递（实时通信） #

适合需要实时触发或响应的场景，通过自定义Windows消息在两者间传递数据：

VBA端代码（需添加到ThisOutlookSession，注意窗口子类化风险）：

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Private Const WM_AHK_REQUEST = &H401 '自定义请求消息
Private ahkReplyMsg As Long

Private Sub Application_Startup()
    ahkReplyMsg = RegisterWindowMessage("AHK_OL_REPLY")
    ' 示例用Timer模拟消息监听，实际建议用窗口子类化处理消息
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim hwndOL As LongPtr
    hwndOL = FindWindow("rctrl_renwnd32", vbNullString)
    SendMessage hwndOL, ahkReplyMsg, 0, ByVal "VBA返回的实时数据"
End Sub

AutoHotkey端代码：

WM_AHK_REQUEST := 0x401
AHK_REPLY := RegisterWindowMessage("AHK_OL_REPLY")
OnMessage(AHK_REPLY, "HandleOLReply")

; 获取Outlook主窗口句柄
olHwnd := WinExist("ahk_class rctrl_renwnd32")
; 发送请求消息
SendMessage, WM_AHK_REQUEST, 0, 0, , ahk_id %olHwnd%

HandleOLReply(wParam, lParam) {
    MsgBox % "收到Outlook回复：" StrGet(lParam)
}

4. COM加载项（正规扩展方案） #

若需长期稳定的双向通信，可将VBA逻辑封装为Outlook COM加载项（用C#/VB.NET开发），暴露自定义属性和方法，AutoHotkey直接调用加载项接口：

COM加载项示例（C#片段）：

[ComVisible(true)]
public class OLAddIn : IDTExtensibility2
{
    public string SharedVar { get; set; } = "初始值";
    
    public string GetData()
    {
        return SharedVar;
    }
}

AutoHotkey调用代码：

olApp := ComObjActive("Outlook.Application")
addIn := olApp.COMAddIns.Item("MyOLAddIn") '替换为你的加载项ID
varValue := addIn.Object.SharedVar
MsgBox % "加载项共享变量：" varValue

总结 #

• 直接访问ThisOutlookSession的公共变量不可行，因不属于Outlook公开的COM对象模型。
• 简单场景优先用临时文件或命名属性；实时通信选Windows消息；长期项目推荐COM加载项。

内容的提问来源于stack exchange，提问作者Adam J. Kessel