Manage Folders

This application demonstrates how to create, update and delete folders.

Create Folder:

procedure TFrmMain.actCreateFolderExecute(Sender: TObject);
var
  Fld: IRwEWSFolder;
begin
  with TFrmFolderOptionsInsert.Create(Self) do
  try
    // Create a new folder in the selected folder
    Fld := TTreeNodeData(tvFolders.Selected.Data).MsgStore.GetFolder(TTreeNodeData(tvFolders.Selected.Data).FolderID);

    cmbBxFolderType.ItemIndex := Integer(Fld.FolderFieldType);

    if ShowModal = mrOK then
    begin
      // use the containerclass from the parentfolder as folderclass for the new folder
      Fld.CreateFolder(TSetFolderFieldType(cmbBxFolderType.ItemIndex), EdtFolderName.Text);
      RefreshMsgStoresTreeView;
    end;
  finally
    Free;
  end;
end;

Screenshot:

Back to Examples