CreateMessage (TdbfMessageBox)

<source lang='delphi'>function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;</source>

Cette procédure crée un message.

Result	Un objet TdbfMessage
iSubject	Sujet du message
iBody	Contenu du message
lsa	Liste des attachements

Exemple <source lang='delphi'> //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;</source>

Voir aussi :

{{#if:TdbfMessageBox (bam)|

{{#if:TdbfMessageBox (bam)|— TdbfMessageBox (bam) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}