Как получить список папок Outlook

Советы » Почтовый клиент » Как получить список папок Outlook

uses

ComObj; procedure

RetrieveOutlookFolders(tvFolders: TTreeView); procedure

LoadFolder(ParentNode: TTreeNode; Folder: OleVariant); var

i: Integer; Node: TTreeNode; begin

for

i := 1 to

Folder.Count do

begin

Node := tvFolders.Items.AddChild(ParentNode, Folder.Item[i].Name); LoadFolder(Node, Folder.Item[i].Folders); end

; end

; var

outlook, NameSpace: OLEVariant; begin

outlook := CreateOleObject('Outlook.Application'); NameSpace := outlook.GetNameSpace('MAPI'); LoadFolder(nil

, NameSpace.Folders); outlook := Unassigned; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

RetrieveOutlookFolders(TreeView1); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com