利用MAPI增加的outlook的联系人目录,写邮件时无法选择新增联系人目录选择联系人。

xxjltan 2018-12-17 08:18:02


procedure TCreateFolderFrom.CreateBtnClick(Sender: TObject);

  const

   olFolderContacts = 10;

   olContactItem = 2;

  var

   OutlookApp, Mapi,

   NewContact, BorlandContacts,

   ContactItems, CurrentContact:  Variant;

   I, ToRemove:     Integer;

  begin

   OutlookApp := CreateOleObject('Outlook.Application');

   Mapi := OutlookApp.GetNameSpace('MAPI');

   ContactItems := Mapi.Folders('个人文件夹').Folders('联系人').Items;

   { 删除测试文件夹 }

   ToRemove := 0;

   for I := 1 to Mapi.Folders('Personal Folders').Folders.Count do

   if Mapi.Folders('个人文件夹').Folders(I).Name ='Borland 联系人' then

   begin

    ToRemove := I;

    Break;

   end; // if

   if ToRemove <> 0 then

    Mapi.Folders('Personal Folders').Folders.Remove(ToRemove);

    { 创建新的文件夹 }

    Mapi.Folders('个人文件夹').Folders.Add('Borland 联系人', olFolderContacts); //新增这一个联系人条目,写邮件时无法显示联系人组。

    BorlandContacts := Mapi.Folders('Personal Folders').Folders('Borland Contacts');

    { 添加联系人到新的目录 }
...全文
457 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxjltan 2018-12-21
  • 打赏
  • 举报
回复
outlook的通讯录一些操作其他搞定,看看还有其他好的方法没有,没有就准备结贴送分啰!
doloopcn 2018-12-20
  • 打赏
  • 举报
回复
引用 3 楼 xxjltan 的回复:
联系人问题解决了调取识别问题了,是outlook设置问题。


恭喜

使用OutLook是我很久远的问题了,以前用的是OutLookExpress
记得文件夹其实是一个DB数据库来着,不知道现在还是不是那样子,如果是DB的话,楼主可以尝试直接去读取吧
xxjltan 2018-12-18
  • 打赏
  • 举报
回复
联系人问题解决了调取识别问题了,是outlook设置问题。
doloopcn 2018-12-17
  • 打赏
  • 举报
回复
    Mapi.Folders('个人文件夹').Folders.Add('Borland 联系人', olFolderContacts); //新增这一个联系人条目,写邮件时无法显示联系人组。

    BorlandContacts := Mapi.Folders('Personal Folders').Folders('Borland Contacts');


'Borland 联系人'
'Borland Contacts'

很少搞Ole,一般来说,先试试E文能不能通过吧
xxjltan 2018-12-17
  • 打赏
  • 举报
回复
引用 1 楼 doloopcn 的回复:
    Mapi.Folders('个人文件夹').Folders.Add('Borland 联系人', olFolderContacts); //新增这一个联系人条目,写邮件时无法显示联系人组。

    BorlandContacts := Mapi.Folders('Personal Folders').Folders('Borland Contacts');


'Borland 联系人'
'Borland Contacts'

很少搞Ole,一般来说,先试试E文能不能通过吧


试了好几次,暂时就是找不到方法,代码能建文件夹,可是系统就不认。现在怀疑是安全设置问题了。

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧