使用Active Qt向Outlook通讯组列表添加成员遇问题

问题重现 #

已成功通过Active Qt读取Outlook通讯组成员：

QAxObject* outlook = new QAxObject("Outlook.Application");
QAxObject* session = outlook->querySubObject("Session");
QAxObject* contactsFolder = session->querySubObject("GetDefaultFolder(olFolderContacts)");
QAxObject* distList = contactsFolder->querySubObject("Items(QString)", "My contact list");

int memberCount = distList->property("MemberCount").toInt();
QAxObject* member;

for (int i = 1; i <= memberCount; i++) {
    member = distList->querySubObject("GetMember(int)", i);
    qDebug() << member->property("Name").toString() << "     "
             << member->property("Address").toString();
    delete member;
}

但添加成员时遇到两种问题：

1. 手动传递IDispatch*指针调用AddMember时触发错误：

QAxObject* newQaxMember = session->querySubObject("CreateRecipient(QString)", "Name LastName");
IDispatch* newMember = 0;
newQaxMember->queryInterface(QUuid("00020400-0000-0000-C000-000000000046"), (void**)&newMember);
distList->querySubObject("AddMember(IDispatch*)", QVariant::fromValue(newMember));

错误信息：

QAxBase::querySubObject: AddMember(IDispatch*): Error calling function or property in ({0006103C-0000-0000-C000-000000000046})

2. 改用dynamicCall无报错，但Outlook通讯组中未出现新成员。

错误原因分析 #

1. 参数传递方式错误：Active Qt无需手动提取IDispatch*指针，直接传递QAxObject对象即可，手动转换会导致类型不匹配。
2. 缺少收件人解析步骤：CreateRecipient创建的对象需要先调用Resolve()让Outlook验证联系人存在，否则添加操作会静默失败。
3. 未保存修改：通讯组成员添加后必须调用Save()方法，否则Outlook不会持久化更改。

修正后的代码实现 #

QAxObject* outlook = new QAxObject("Outlook.Application");
QAxObject* session = outlook->querySubObject("Session");
QAxObject* contactsFolder = session->querySubObject("GetDefaultFolder(olFolderContacts)");
QAxObject* distList = contactsFolder->querySubObject("Items(QString)", "My contact list");

if (!distList) {
    qDebug() << "未找到指定的通讯组列表";
    // 释放资源并返回
    delete contactsFolder;
    delete session;
    delete outlook;
    return;
}

// 创建并解析收件人
QAxObject* newRecipient = session->querySubObject("CreateRecipient(QString)", "Name LastName");
bool isResolved = newRecipient->dynamicCall("Resolve()").toBool();
if (isResolved) {
    // 直接传递QAxObject对象调用AddMember
    distList->dynamicCall("AddMember(QAxObject*)", QVariant::fromValue(newRecipient));
    // 保存修改到Outlook
    distList->dynamicCall("Save()");
    qDebug() << "成员添加成功";
} else {
    qDebug() << "无法解析收件人，请确认该联系人已存在于Outlook地址簿";
}

// 释放资源
delete newRecipient;
delete distList;
delete contactsFolder;
delete session;
delete outlook;

关键注意点 #

• Resolve()方法：必须调用此方法验证收件人有效性，否则Outlook无法识别要添加的联系人，导致添加失败。
• 参数传递：使用QVariant::fromValue(newRecipient)直接传递QAxObject对象，避免手动处理IDispatch*。
• Save()方法：修改通讯组后必须调用，确保更改被写入Outlook的存储文件，否则修改仅存在于内存中，关闭程序后丢失。

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