CreateMessage (TdbfMessageBox)

<source lang='delphi'>function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;</source>

Cette procédure crée un message dont l'expéditeur est la boîte.

Result	Un objet TdbfMessage
iSubject	Sujet du message
iBody	Contenu du message
lsa	Liste des attachements

Exemple : Envoi d'un message <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>

Exemple : Attachement d'un message

<source lang='delphi'> //Procedure CreateMessage2; var msg:TdbfMessage; box1,box:TdbfMessageBox; begin

 box := TdbfMessageBox.FindBox('box1');
 if Assigned(box) then
  begin
    withP transaction do
     begin
       msg := box.CreateMessage('Some subject in a queue','Some content', nil);
       msg.queueTopic := 'topic1';
     end;
  end;

end; </source>

Tip : Ce message n'apparaitra pas dans l'interface de la boite à message de box1 car il s'agit d'un message envoyé par cette boite.

Voir aussi :

• Rattachement d'un message
• Envoi d'un message

{{#if:TdbfMessageBox (bam)|

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

|

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

}}