FMX.AddressBook.Types.TContactEmails.AddEmail

• Übergeordnet: TContactEmails

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 */;

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
function	public	FMX.AddressBook.Types.pas FMX.AddressBook.Types.hpp	FMX.AddressBook.Types	TContactEmails

Beschreibung

Fügt der Liste der Kontakt-E-Mail-Adressen eine neue E-Mail-Adresse hinzu.

Mit dieser Methode fügen Sie der Liste der Kontakt-E-Mail-Adressen eine neue Adresse hinzu. Mit den Eingabeparametern können Sie die folgenden Charakteristika angeben:

• AEmail: gibt die Kontakt-E-Mail an, wie z. B. John.Doe@mycompany.com'.
• AKind: in der ersten überladenen Methode gibt dieser Parameter die Art der Kontakt-E-Mail an.
• Alabel: in der zweiten überladenen Methode gibt dieser Parameter eine optionale Beschriftung an, wie z. B. "Heim," " Büro," usw.

Beispiele

Sehen Sie sich zur Klärung die folgenden Beispiele an. Die Codefragmente zeigen, wie die Arbeits-E-Mail-Adresse des Kontakts angegeben wird, und speichert diesen Kontakt im Adressbuch.

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();
	}

Weitere Informationen und Beispiele finden Sie unter Mobile-Tutorial: Verwenden der Adressbuch-Komponente (iOS und Android).

Siehe auch

• TAddressBook
• TContactEmail
• TAddressBookContact
• TAddressBookContacts
• Mobile-Tutorial: Verwenden einer Adressbuch-Komponente (iOS und Android)