如何在Delphi中获取Outlook存储的PST文件列表并修复索引错误

云原生阿岚

2026-8-13

修复Delphi中枚举Outlook PST Stores时的无效参数错误

问题原因

Outlook的COM集合（如Stores）在Delphi中无法直接通过[]索引访问，必须显式调用Item属性获取集合元素。你当前代码中直接使用Stores[i]的方式不符合COM对象的访问规则，导致触发无效参数错误。

修复步骤

将直接索引访问的代码替换为显式调用Item属性
可选优化：统一命名空间对象（oNameSpace和pstSession指向同一MAPI命名空间对象，可合并简化）
可选优化：使用EmptyParam替代空字符串传递给Logon方法，避免潜在参数类型问题

修改后的完整代码

procedure TFEmailImportControl.PSTLocate(pstPath : String  = '');
var
  Outlook, oNameSpace, Stores, aStore : OleVariant;
  i  : Integer;
  pstLocationsFile, tempStr : String;
  strLPST : TStringList;
begin
  pstLocationsFile := 'PSTLocations.txt';

  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;

  oNameSpace := Outlook.GetNamespace('MAPI');
  oNameSpace.Logon(EmptyParam, EmptyParam, False, False);

  StrLPST := TStringList.Create;
  try
    strLPST.Add('-- PST Files -- ');
    Stores := oNameSpace.Stores;

    // 添加指定的PST文件
    if (Trim(pstPath) <> '' ) and (Pos('.pst', LowerCase(pstPath)) > 0) then
      oNameSpace.AddStore(pstPath);

    // 枚举所有Stores（修复核心代码）
    for I := 1 to Stores.Count do
    begin
      aStore := Stores.Item[i]; 
      tempStr := aStore.FilePath;
      strLPST.Add(tempStr);
    end;

    // 保存列表到文件
    ChDir(MainBaseFolder);
    strLPST.SaveToFile(PSTLocationsFile);
 finally
   strLPST.Free;
 end;
end;