AttachMessage (TdbfMessageBox)

function AttachMessage(iMsg:TdbfMessage):TdbfMessageBoxAssMessage;

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 :

//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;

Voir aussi :

• Création d'un message

— TdbfMessageBox (class) — Développement DSM —