Как получить список папок OutlookDelphi , Интернет и Сети , Почтовый клиентКак получить список папок OutlookАвтор: http://www.swissdelphicenter.ch 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; В статье описывается код на Delphi, который позволяет получить список папок Outlook и отображать его в дереве виджете TreeView. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Почтовый клиент ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |