SendMail
Envoi d'un message
Syntaxe
procedure SendMail(recipients: String; subject: String; body: String; docIDs: String = ''; attachments: array of String = [])
recipient: CommaText des utilisateurs Qubes destinataires
subject: Sujet du message
body: Corps du message
docIDs: IDs des documents Qubes à envoyer en pièces-jointes séparés par des points-virgules.
attachments: fichiers optionnels à joindre (Qubes 7.1)
Remarques
La liste des destinataires ne prend en charge que les utilisateurs Qubes, les groupes d'utilisateurs ne sont pas pris en charge.
Le sujet est limité à 255 caractères. S'il dépasse, il sera tronqué, ce qui ne déclenchera pas d'exception.
TIntegerList.AsString peut être utilisée pour générer le paramètre docIDs.
La liste des fichiers à joindre attachments est au format "nom=base64_of_data" et est supportée à partir de Qubes 7.1.
Exemples
uses SysUtils, Mail, System.Encoding, QuBESDocuments;
var logins := new TStrings;
logins.Add('user1');
logins.Add('user2');
var docIds : array of Integer;
docIds.Add(AppliedDocIDForRUD('RUD1'));
docIds.Add(AppliedDocIDForRUD('RUD2'));
var attachments : array of String;
attachments.Add('Attach1.html=' + Base64Encoder.Encode('<html><body><a href="https://www.google.fr">Test lien</a></body></html>'));
attachments.Add('Attach2.html=' + Base64Encoder.Encode('<html><body>test 2</body></html>'));
SendMail(logins.CommaText, 'subject', 'body', docIds.Map(IntToStr).Join(';'), attachments);
var logins := new TStrings;
logins.Add('user1');
logins.Add('user2');
var docIds : array of Integer;
docIds.Add(AppliedDocIDForRUD('RUD1'));
docIds.Add(AppliedDocIDForRUD('RUD2'));
var attachments : array of String;
attachments.Add('Attach1.html=' + Base64Encoder.Encode('<html><body><a href="https://www.google.fr">Test lien</a></body></html>'));
attachments.Add('Attach2.html=' + Base64Encoder.Encode('<html><body>test 2</body></html>'));
SendMail(logins.CommaText, 'subject', 'body', docIds.Map(IntToStr).Join(';'), attachments);