CreateAnswer (TdbfMessage)
De Wiki1000
(Différences entre les versions)
| (Une révision intermédiaire par un utilisateur est masquée) | |||
| 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 :''' | ||
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;
