Juno Address Book - CSV

[llewxam]

LOL, OK, this script may have been more useful 8 years ago, but better late than never.......

I had a client today who was still using a Juno email program and her replacement was switching over to Outlook. I did some Googling and found very little help on converting the Juno address book to CSV so banged this out real quick:

#include <Array.au3>
$Input = @ScriptDir & "\addrbook.nv"
$Import = FileRead($Input)
$Break = StringSplit($Import, "Type:Entry", 1)
$Output = @ScriptDir & "\export.csv"
$Export = FileOpen($Output, 1)
FileWriteLine($Export, Chr(34) & "First Name" & Chr(34) & "," & Chr(34) & "Last Name" & Chr(34) & "," & Chr(34) & "Company" & Chr(34) & "," & Chr(34) & "Company Main Phone" & Chr(34) & "," & Chr(34) & "Business Phone" & Chr(34) & "," & Chr(34) & "Business Phone 2" & Chr(34) & "," & Chr(34) & "E-mail Address" & Chr(34))
For $a = 1 To $Break[0]
 $Line = $Break[$a]
 $Split = StringSplit($Line, @CR)
 If $Split[0] == 14 Then
  $Name = $Split[4]
  If StringInStr($Name, ",") Then
   If StringLen($Name) > 3 Then
    $NameSplit = StringSplit($Name, ", ", 1)
    If $NameSplit[0] > 1 Then
     $FirstName = $NameSplit[2]
     $LastName = StringReplace(StringTrimLeft($NameSplit[1], 1), "Name:", "")
    Else
     $FirstName = $Name
     $LastName = ""
    EndIf
   EndIf
  Else
   $FirstName = ""
   $LastName = ""
  EndIf
  $Company = StringReplace($Split[3], "Alias:", "")
  $CompanyMainPhone = StringReplace($Split[5], "Work Phone:", "")
  $BusinessPhone = StringReplace($Split[6], "Primary Phone:", "")
  $BusinessPhone2 = StringReplace($Split[7], "Mobile Phone:", "")
  $EmailAddress = StringReplace($Split[2], "Email:", "")
  FileWriteLine($Export, Chr(34) & $FirstName & Chr(34) & "," & Chr(34) & $LastName & Chr(34) & "," & Chr(34) & $Company & Chr(34) & "," & Chr(34) & $CompanyMainPhone & Chr(34) & "," & Chr(34) & $BusinessPhone & Chr(34) & "," & Chr(34) & $BusinessPhone2 & Chr(34) & "," & Chr(34) & $EmailAddress & Chr(34))
 EndIf
Next

Note the name of the Juno address book is addrbook.nv, you may find that in the ProgramFiles or ProgramData \Juno folder depending on OS. For my purposes I just copied it to the user's desktop, so adjust accordingly. Hopefuly this will help SOMEONE else SOMEDAY!

Ian

[ndmcq6]

Ian-

Thanks for working this up.  I am a newby so I do not know what to do with the code that you created.

Could you guide me through it? I was just able to get Outlook to connect with my Juno online account and want to get my Address Book converted

Thanks 

Andy

[llewxam]

Hi, all you need to do is locate the addrbook.nv file and copy it to the same folder as the above code.  When the code runs it will create a CSV file which you can then import in Outlook.

https://support.office.com/en-us/article/Import-contacts-to-Outlook-bb796340-b58a-46c1-90c7-b549b8f3c5f8

 

If the conversion doesn't work please let me know, I wrote this for a specific customer so only used it once!

 

Ian

[DeeH41]

Getting a "Unterminated entity reference - matching ':' not found error when running script.  Really hoping to help my friend convert his Juno over.  Thanks!

[DeeH41]

Figuring it out (having AutoIt installed helps : )    )...the field order in the addressbook has changed since you wrote this.

[DeeH41]

Nope, still not there.  Getting First and Last Names,, and nothing more.

[llewxam]

Hi DeeH41, sorry to hear that it isn't working, however like I said I only wrote it for a single use so I would not be surprised if their address book has several different versions.  In order to try to help you, feel free to PM me and include your friend's address book file and I'll have a look in the next few days.

 

Otherwise please feel free to modify the code I posted here by re-arranging the columns appropriately.  It can't hurt to try! 

 

Ian