CreateAnswer (TdbfMessage)
De Wiki1000
(Différences 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… ») |
|||
| (2 révisions intermédiaires par un utilisateur sont masqué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; | ||
Version actuelle en date du 12 décembre 2011 à 15:32
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;
