Preserve Outlook contacts import in address book

Question

Hi,
I'm trying to export all my contacts from Outlook to Address Book and keep the groups ('categories' in MS Outlook). I've tried Outlook2Mac and exporting it to tab delimited files, but my groups are lost. My last attempt:
In Outlook, I can double click on one category and send all the contacts as separate vCards. In Mail, I save all the attachments and drag them from my download folder into a group in Address Book. But.. then it adds annoying text in every contact:
X-MS-OL-DEFAULT-POSTAL-ADDRESS: 1
X-MS-OL-DESIGN: <card xmlns="http://schemas.microsoft.com/office/outlook/12/electronicbusinesscards" ver="1.0" layout="left" bgcolor="ffffff"><fld xmlns="" prop="name" align="left" dir="ltr" style="b" color="000000" size="10"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="email" align="left" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="addrhome" align="left" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/></card>
It seems a script from http://forum.soft32.com/mac/Deleting-Paragraph-Address-Book-Note-Field-ftopict39 458.html might provide help. But as a complete AppleScript noob, I can't get it to work. Anyone any ideas?
tell application "Address Book"
activate
set oldDelims to AppleScript's text item delimiters
set allCards to every person
repeat with i from 1 to the number of people
set theCurrentPerson to person i
set theCurrentPersonsName to the name of theCurrentPerson
set theCurrentPersonsNotes to the note of theCurrentPerson
if theCurrentPersonsNotes contains "X-MS-OL-DEFAULT-POSTAL-ADDRESS:" then
set theParas to the text items of theCurrentPersonsNotes
set theParaCount to count of theParas
set theNewParas to {}
set theFinalParas to {}
repeat with j from 1 to theParaCount
if the text of item j of theParas does not contain "X-OUTL" then
set the end of theNewParas to the text of item j of theParas
end if
end repeat
set the theNewParaCount to count of theNewParas
repeat with j from theNewParaCount to 1 by -1
if the text of item j of theNewParas is not equal to "" then
repeat with k from 1 to j
set the end of theFinalParas to the text of item k of theNewParas
end repeat
exit repeat
end if
end repeat
set the note of theCurrentPerson to (theFinalParas as string)
end if
save
display dialog "Done"
end tell

Answer 1

I have tried O2M (outlook2mail) but that did not work. I get one big heap of contacts, without the groups.