EXchange导出通讯录提取url纯文本

Posted 2020-06-14

用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里调整格式 提取到格式统一的邮箱前缀