用outlook链接邮箱
文件-打开和导出--导出到文件--逗号分隔值--选择联系人--保存
保存为一个后缀为csv的文件
打开该文件 选中该列
用替换功能删掉（）符号
用vba脚本删掉汉字
Sub zhz3230()
Dim rng As Range
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[^!-~]"
For Each rng In ActiveSheet.UsedRange
If Len(rng.Value) > 0 Then rng.Value = .Replace(rng.Value, " ")
If Len(rng.Value) > 0 Then rng.Value = Replace(rng.Value, " ", "")
If Len(rng.Value) > 0 Then rng.Value = Replace(rng.Value, ".", "")
Next
End With
End Sub
再次用替换功能 删掉@ 以及后面的字符
放到word里调整格式 提取到格式统一的邮箱前缀
原文：http://www.cnblogs.com/nayu/p/5200561.html