« CreateAnswer (TdbfMessage) » : différence entre les versions
(Page créée avec « <source lang='delphi'>function CreateAnswer(const iFrom,iCopyTo,iSubject,iBody:string; lsa:TfwObjectList):TdbfMessage;</source> Cette fonction répond à un message. {|clas… ») |
Aucun résumé des modifications |
||
| (2 versions intermédiaires par le même utilisateur non affichées) | |||
| Ligne 23 : | Ligne 23 : | ||
La réponse est envoyée à l'expéditeur du message ainsi qu'aux éventuels destinataires supplémentaires. | La réponse est envoyée à l'expéditeur du message ainsi qu'aux éventuels destinataires supplémentaires. | ||
{{info|Cette fonction gère la transaction}} | {{info|[[Gestion_de_la_transaction|Cette fonction gère la transaction courante]]}} | ||
'''Exemple :''' | '''Exemple :''' | ||
<source lang='delphi'> | <source lang='delphi'> | ||
function AnswerToMessage(const iBox,iSubject,iBody:string):boolean; | function AnswerToMessage(const iBox,iCopyTo,iSubject,iBody:string):boolean; | ||
var boxS,boxD:TdbfMessageBox; msg:TdbfMessage; | var boxS,boxD:TdbfMessageBox; msg:TdbfMessage; | ||
begin | begin | ||
| Ligne 37 : | Ligne 37 : | ||
begin | begin | ||
msg := boxS.dbfMessages[0]; | msg := boxS.dbfMessages[0]; | ||
anw := msg.CreateAnswer(iBox,iSubject,iBody,nil); | anw := msg.CreateAnswer(iBox,iCopyTo,iSubject,iBody,nil); | ||
Result := Assigned(anw); | Result := Assigned(anw); | ||
end; | end; | ||
Dernière version du 12 décembre 2011 à 14:32
<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.
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 —
}}