CreateAnswer (TdbfMessage)

<source lang='delphi'>function CreateAnswer(const iFrom,iCopyTo,iSubject,iBody:string; lsa:TfwObjectList):TdbfMessage;</source>

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 : <source lang='delphi'> 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; </source>

{{#if:TdbfMessage (class)|

{{#if:TdbfMessage (class)|— TdbfMessage (class) |}} — Développement DSM —

|

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

}}