InQueueMessage (TdbfMessageBox)

procedure CreateMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject);

Cette procédure crée un message et l'insère dans une queue.

iTopic	Nom de file d'attente
iSubject	Sujet du message
iBody	Contenu du message
iRefObject	Objet référence

Note : cette procédure gère la transaction

Exemple :

//Procedure inQueueMessage;
var msg:TdbfMessage; box1,box:TdbfMessageBox;
begin
  box := TdbfMessageBox.FindBox('mybox');
  if Assigned(box) then
   begin
     box.InqueueMessage('queueName','subject','some body text',self);
   end;
end;

Voir aussi :

— TdbfMessageBox (bam) — Développement DSM —