CreateAnswer (TdbfMessage)

De Wiki1000
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.

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

Outils personnels