CreateMessage (TdbfMessageBox)

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

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

//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;

Exemple : Attachement d'un message

//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;

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 :

— TdbfMessageBox (bam) — Développement DSM —