InQueueMessage (TdbfMessageBox)

<source lang='delphi'>procedure InQueueMessage(const iTopic,iSubject,iBody:string; iRefObject:TitObject; lsa:TdbfAttachementDescriptorList);</source>

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 :

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

Voir aussi :

{{#if:TdbfMessageBox (bam)|

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

|

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

}}