CreateMessage (TdbfMessageBox)

function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;

Cette procédure crée un message.

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

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 :

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

— TdbfMessageBox (bam) — Développement DSM —