AttachMessage (TdbfMessageBox)

<source lang='delphi'>function AttachMessage(iMsg:TdbfMessage):TdbfMessageBoxAssMessage;</source>

Cette procédure attache un message à la boîte.

Result	Un objet TdbfMessageBoxAssMessage représentant l'association
iMsg	Un message à attacher

Tip : Le message est attaché comme un message reçu.

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 :

• Création d'un message

{{#if:TdbfMessageBox (class)|

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

|

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

}}