tell application "Address Book"
    set liste to ""
    repeat with this_person in every person
        set first_name to first name of this_person as string
        set last_name to last name of this_person as string
        repeat with the_mail in emails of this_person
            set e_mail to value of the_mail
            exit repeat
        end repeat
        
        set full_name to first_name & last_name & "(" & e_mail & ")"
        set liste to liste & full_name
    end repeat
end tell