CreateMessage (TdbfMessageBox)

function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;

//Procedure CreateMessage;
var msg:TdbfMessage; box1,box:TdbfMessageBox;
begin
  box := TdbfMessageBox.FindBox('mybox');
  if Assigned(box) then
   begin
     withP transaction do
      begin
        // From
        msg := box.CreateMessage('Some subject in a queue','Some content', nil);
        msg.queueTopic := 'topic1';
        // To
        box1 := TdbfMessageBox.FindBox('box1');
        if Assigned(box1) then box1.AttachMessage(msg);
      end;
   end;
end;