CreateMessage (TdbfMessageBox)
De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;</source> Cette procédure crée un message. {|clas… ») |
|||
| Ligne 1 : | Ligne 1 : | ||
<source lang='delphi'>function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;</source> | <source lang='delphi'>function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;</source> | ||
| − | Cette procédure crée un message. | + | Cette procédure crée un message dont l'expéditeur est la boîte. |
{|class="wikitable" | {|class="wikitable" | ||
Version du 12 juillet 2011 à 10:18
function CreateMessage(const iSubject,iBody:string; lsa:TdbfAttachementDescriptorList):TdbfMessage;
Cette procédure crée un message dont l'expéditeur est la boîte.
| Result | Un objet TdbfMessage |
| iSubject | Sujet du message |
| iBody | Contenu du message |
| lsa | Liste des attachements |
Exemple
//Procedure CreateMessage; var msg:TdbfMessage; box1,box:TdbfMessageBox; begin box := TdbfMessageBox.FindBox('mybox'); if Assigned(box) then begin withP transaction do begin // From msg := box.CreateMessage('Some subject in a queue','Some content', nil); msg.queueTopic := 'topic1'; // To box1 := TdbfMessageBox.FindBox('box1'); if Assigned(box1) then box1.AttachMessage(msg); end; end; end;
Voir aussi :
