InQueueMessage (TdbfMessageBox)

procedure InQueueMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject; lsa:TdbfAttachementDescriptorList);

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
lsa	Liste de pièces jointes

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,nil);
   end;
end;

Voir aussi :

— TdbfMessageBox (bam) — Développement DSM —