从outlook导入通讯录到Evolution乱码的完美解决方案

[筷子哲学]

以前都是用outlook记通讯录,约有五百多条吧,换到ubuntu后,感觉比较好用的通讯录管理软件应该是Evolution吧,但是当我从outlook把通讯录导出来后,再导进Evolution,里面的中文全是问号,经过仔细的研究,用以下办法可以完美解决,
首先,从outlook导出通讯录卡片,也就是.vcf文件,很多,一个联系人一个文件,不过不用怕,不是让你一个一个的导入,呵呵.这些文件的编码应该是GB的吧.注意导出后先不要编辑这些文件 .
第二步,把这些导出的文件放到ubuntu系统下的一个文件夹内,用终端进入该文件夹,执行以下命令:

代码： 全选

$cat *.vcf > all.vcf
$gedit all.vcf

另存一下文件,另存的时候把编码改成utf-8就可以了,然后在Evolution中导入另存的文件,我的通讯录好像没有什么信息丢失.
当然,原则上还是要说一句,以上的方法仅供参考.毕竟是个人的信息文件嘛.

[tongttt]

收藏，哈哈

[anffernee]

可是要一个个导出吧。。。
不知道是否有高手指教。。。

[qqttdh]

其实livemail可能会简单点。。。。
以前用过现在发现所有联系人居然都在我的hotmail里。。。可以直接导出

[hduzhang]

真强，顶！

[baishigao]

是啊，这样导出很麻烦啊，我这里也有上百号通讯录！

[eexpress]

enca

[laixt]

我内外网加起来，接近1000个。快疯掉了，解决不了。

[shhcy2]

可以批量导出
批量导出联系人为vfs

outlook中，工具->宏，创建一个新的宏，名称任意，输入：

代码： 全选

Sub ExportVcards()
Dim MyContacts As Outlook.MAPIFolder
Dim ContItem As Outlook.ContactItem
Dim FileName As String

Set MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
'取得默认的联系人文件夹

For Each ContItem In MyContacts.Items '遍历所有联系人
FileName = "c:\Contacts\" & ContItem.FileAs & ".vcf"
ContItem.SaveAs FileName, olVCard
'导出vfs文件

Next
End Sub

注意上面的蓝色部分为输出到的目的文件夹

然后运行，如果失败，请检查c:\Contacts文件夹是否存在（不存在则要先创建），以及outlook中，工具->安全性，是否有权限运行宏。