如何为Profman创建的Outlook M365账户配置文件设置默认PST并同步

1. 向现有M365配置文件添加PST并设置为默认数据文件 #

假设你已用Profman创建并加载目标M365配置文件，按以下步骤添加PST并设为默认：

• 加载目标配置文件：

  Dim prof As New ProfMan.Profile
  prof.Load("你的M365配置文件名") ' 替换为实际配置文件名
  

• 添加Unicode格式的PST文件：

  Const olStoreUnicode = 2
  Dim pstPath As String = "C:\Users\你的用户名\Documents\Outlook Files\M365同步.pst" ' 替换为实际PST路径
  Dim pstStore As ProfMan.Store = prof.AddPstStore(pstPath, olStoreUnicode, "M365同步PST")
  

• 将该PST设为配置文件的默认数据文件：

  prof.DefaultStoreID = pstStore.StoreID
  prof.Save ' 保存配置文件修改
  

2. 配置M365账户与PST同步 #

要让M365邮箱的邮件、日历等数据同步到PST，需将账户的默认交付位置设置为该PST，结合Redemption库实现：

• 初始化Redemption会话并登录到目标配置文件：

  Dim rdoSession As New Redemption.RDOSession
  rdoSession.Logon("你的M365配置文件名")
  

• 获取M365账户并设置交付存储为目标PST：

  Dim m365Account As Redemption.RDOAccount = rdoSession.Accounts.Item("你的M365账户名") ' 替换为实际账户名
  m365Account.DeliveryStore = rdoSession.Stores.Item("M365同步PST") ' 匹配之前设置的PST显示名
  m365Account.Save ' 保存账户配置
  

• 触发同步操作：

  m365Account.DeliveryStore.Sync() ' 启动PST与M365邮箱的同步
  

注意事项 #

• 确保PST文件路径有读写权限，避免权限不足导致创建或同步失败
• 修改配置文件和账户设置后，需重启Outlook才能使设置生效
• 大邮箱同步可能耗时较长，建议在网络稳定的环境下操作，或让Outlook在后台自动完成同步

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