FMX.AddressBook.Types.TContactEmails.AddEmail
Delphi
function AddEmail(const AKind: TContactEmail.TLabelKind; const AEmail: string): TContactEmail; overload;
function AddEmail(const ALabel: string; const AEmail: string): TContactEmail; overload;
C++
TContactEmail* __fastcall AddEmail(const TContactEmail::TLabelKind AKind, const System::UnicodeString AEmail)/* overload */;
TContactEmail* __fastcall AddEmail(const System::UnicodeString ALabel, const System::UnicodeString AEmail)/* overload */;
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
function | public | FMX.AddressBook.Types.pas FMX.AddressBook.Types.hpp |
FMX.AddressBook.Types | TContactEmails |
Description
Ajoute une nouvelle adresse de messagerie à une liste d'adresses de messagerie du contact.
Utilisez cette méthode pour ajouter une nouvelle adresse de messagerie à une liste d'adresses de messagerie du contact. Les paramètres d'entrée de cette méthode vous permettent de spécifier les caractéristiques suivantes :
AEmail
: spécifie l'adresse de messagerie du contact, telle que John.Doe@mycompany.com'.AKind
: dans la première méthode surchargée, ce paramètre spécifie le type d'adresse de messagerie du contact.Alabel
: dans la deuxième méthode surchargée, ce paramètre spécifie un libellé optionnel, tel que "Home," "FaxWork,", et ainsi de suite.
Exemples
A titre explicatif, prenons les exemples suivants. Ces extraits de code illustrent comment spécifier l'adresse de messagerie professionnelle du contact et enregistrer ce contact dans le carnet d'adresses.
Delphi :
var
Contact: TAddressBookContact;
eMails: TContactEmails;
begin
Contact := AddressBook1.CreateContact(AddressBook1.DefaultSource);
try
// Add the work mail
eMails := TContactEmails.Create;
try
eMails.AddEmail(TContactEmail.TLabelKind.Work, 'John.Doe@mycompany.com');
Contact.eMails := eMails;
finally
eMails.Free;
end;
AddressBook1.SaveContact(Contact);
finally
Contact.Free;
end;
end;
C++Builder :
TAddressBookContact *Contact;
TContactEmails *eMails;
// Create a new contact
Contact = AddressBook1->CreateContact(AddressBook1->DefaultSource());
__try {
// Add the work mail to the newly created contact
eMails = new TContactEmails();
__try {
eMails->AddEmail(TContactEmail::TLabelKind::Work,
"John.Doe@mycompany.com");
Contact->EMails = eMails;
}
__finally {
eMails->Free();
}
// Save contact to Address Book
AddressBook1->SaveContact(Contact);
}
__finally {
Contact->Free();
}
Pour plus d'informations et des exemples, voir Tutoriel mobile : Utilisation du composant Carnet d'adresses (iOS et Android).