global theFileSave
repeat
 display dialog "Enter file name:" default answer "empty" buttons {"Cancel", "OK"} default button 2
 set the theFile to the text returned of the result
 if the length of theFile is not 0 ¬
  and (the theFile is not "empty") then exit repeat
end repeat
set destinationFolder to choose folder
set theFileSave to (destinationFolder as string) & theFile & ".txt" as string

tell application "Address Book"
 set theList to {}
 repeat with thisPerson in every person -- of group "Newsletter"
  if (first name of thisPerson) is not missing value then
   repeat with x from 1 to the count of email in thisPerson
    if (label of email x of thisPerson as string) is "home" then
     -- -- -- -- -- -- -- -- -- -- -- --  "work", MobileMe", "other"
     -- -- -- -- -- -- -- -- -- -- -- -- -- oder auch ->->Eigene ""
     copy (value of email x of thisPerson as string) to end of theList
    end if
   end repeat
   copy tab to end of theList
   copy (first name of thisPerson) to end of theList
   copy tab to end of theList
   copy (last name of thisPerson) to end of theList
   copy (ASCII character 13) & ¬
    (ASCII character 10) to end of theList
  end if
 end repeat
 set theList to theList as text
 my writeToFile(theList)
end tell

on writeToFile(thisData)
 set f to (open for access file ¬
  theFileSave with write permission)
 try
  write thisData to f starting at eof
  close access f
 on error
  close access f
  display dialog "something went wrong"
 end try
end writeToFile