CreateAnswer (TdbfMessage)

function CreateAnswer(const iFrom,iCopyTo,iSubject,iBody:string; lsa:TfwObjectList):TdbfMessage;

Cette fonction répond à un message.

Result	La réponse au message
iFrom	Boîte source de la réponse
iCopyTo	Destinataires supplémentaires de la réponse
iSubject	Sujet de la réponse
iBody	contenu de la réponse

La réponse est envoyée à l'expéditeur du message ainsi qu'aux éventuels destinataires supplémentaires.

Note : Cette fonction gère la transaction courante

Exemple :

function AnswerToMessage(const iBox,iCopyTo,iSubject,iBody:string):boolean;
var boxS,boxD:TdbfMessageBox; msg:TdbfMessage;
begin
  Result := False;
  boxS := TdbfMessageBox.FindBox(iBox);
  if Assigned(boxS) then
   begin
     if boxS.dbfMessages.Count<>0 then
      begin
        msg := boxS.dbfMessages[0];
        anw := msg.CreateAnswer(iBox,iCopyTo,iSubject,iBody,nil);
        Result := Assigned(anw);
      end;
   end;
end;

— TdbfMessage (class) — Développement DSM —