<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      取得的Outlook目錄并在TTreeView里顯示出來
                
                  發表時間：2023-08-05             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]outlook對象提供了一個MAPI命名空間可以訪問其文件夾集合，每個文件夾都有一個唯一的字符型標識符，可以將其作為數據保存在TTreeNode的EntryID屬性里。例程如下,uses里加上Com...
      outlook對象提供了一個MAPI命名空間可以訪問其文件夾集合，每個文件夾都有一個唯一的字符型標識符，可以將其作為數據保存在TTreeNode的EntryID屬性里。例程如下,uses里加上ComObj。
        procedure LoadFolder(ParentNode: TTreeNode; Folder: OleVariant);
        var
          i: Integer;
          node: TTreeNode;
        begin
          for i := 1 to Folder.Count do
          begin
            node := Form1.TreeView1.Items.AddChild(ParentNode, Folder.Item[i].Name);
            LoadFolder(node, Folder.Item[i].Folders);
          end;
        end;

      procedure TForm1.Button1Click(Sender: TObject);
      var
        outlook, namespace: OLEVariant;
      begin
        outlook := CreateOleObject('Outlook.Application');
        namespace := outlook.GetNameSpace('MAPI');
        loadFolder(nil, NameSpace.Folders);
        outlook := UnAssigned;
      end;

      //rock
      //轉載請保留此信息


              
              
                 
              
                                    
                                        
              
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清