TUser.UseExternalMailBox
redirigé depuis TUser.GetUseExternalMailBox
| TUser = class (TObject) | Interface de TUser | Exemples de TUser |
Qubes 6.0 Lecture/écriture du réglage indiquant que l'utilisateur utilise une messagerie externe
Syntaxe
property UseExternalMailBox: Boolean read GetUseExternalMailBox write SetUseExternalMailBox
Remarques
Cette propriété remplace les fonctions GetUseExternalMailBox et SetUseExternalMailBox qui existaient avant la version 6.0.
Exemples
// Connexion à un login admin, activation de l'utilisation d'un mail externe et paramétrage de cette valeur.
uses QubesUsers;
var user:=TUser.Connect('admin');
user.UseExternalMailBox:=True;
user.TypeMessagerie:='SMTP';
user.SMTPMail:='[email protected]';
user.AttachmentMode:=QuBESLinksAndHTTPLinks;
uses QubesUsers;
var user:=TUser.Connect('admin');
user.UseExternalMailBox:=True;
user.TypeMessagerie:='SMTP';
user.SMTPMail:='[email protected]';
user.AttachmentMode:=QuBESLinksAndHTTPLinks;
// Liste des users qui utilisent une messagerie externe et adresses mail associées
uses QuBESUsers;
var users := new TStrings;
GetAllUsersHavingFunctions(users, '');
for var i := 0 to users.Count - 1 do begin
var user := TUser.Connect(users[i]);
if user.UseExternalMailBox then
PrintLn(user.Login + ' => ' + user.SMTPMail);
end;
uses QuBESUsers;
var users := new TStrings;
GetAllUsersHavingFunctions(users, '');
for var i := 0 to users.Count - 1 do begin
var user := TUser.Connect(users[i]);
if user.UseExternalMailBox then
PrintLn(user.Login + ' => ' + user.SMTPMail);
end;