[分享] 【宏】解决vcard乱码&批量导入outlook [复制链接]

如果不是某人用的国产手机,我还真不知道现在好多国产手机联系人的导出格式居然是vcf。而且,中文姓名都乱码了。而且而且outlook不支持批量将这一坨一坨的vcf文件导入。
没办法,上网搜了一通,问题一一解决。

1、vcard乱码。有个叫做VCFEncoding的小程序,操作很简单,打开一看便知,几秒钟就让好多坨乱码的vcard姓名显示正常了。点击下载
2、将vcard批量导入outlook。

(1)打开outlook2003,按下alt+F11,调出Visual Basic编辑器;
(2)工具——引用,找到Microsoft Scripting Runtime和Windows Script Host Object Model勾选,确定;
(3)插入——模块,复制粘贴以下代码,并保存;

普通浏览复制代码
  1. Sub OpenSaveVCard()
  2. Dim objWSHShell As IWshRuntimeLibrary.IWshShell
  3. Dim objOL As Outlook.Application
  4. Dim colInsp As Outlook.Inspectors
  5. Dim strVCName As String
  6. Dim fso As Scripting.FileSystemObject
  7. Dim fsDir As Scripting.Folder
  8. Dim fsFile As Scripting.File
  9. Dim vCounter As Integer
  10. Set fso = New Scripting.FileSystemObject
  11. Set fsDir = fso.GetFolder(”C:\vcards”)
  12. For Each fsFile In fsDir.Files
  13. strVCName = “C:\vcards\” & fsFile.Name
  14. Set objOL = CreateObject(”Outlook.Application”)
  15. Set colInsp = objOL.Inspectors
  16. If colInsp.Count = 0 Then
  17. Set objWSHShell = CreateObject(”WScript.Shell”)
  18. objWSHShell.Run strVCName
  19. Set colInsp = objOL.Inspectors
  20. If Err = 0 Then
  21. Do Until colInsp.Count = 1
  22. DoEvents
  23. Loop
  24. colInsp.Item(1).CurrentItem.Save
  25. colInsp.Item(1).Close olDiscard
  26. Set colInsp = Nothing
  27. Set objOL = Nothing
  28. Set objWSHShell = Nothing
  29. End If
  30. End If
  31. Next
  32. End Sub

(4)把所有的vcard文件存放至C盘,vcard目录下(当然你也可以放在别处,只要修改以上代码中相应的路径);
(5)回到outlook界面,工具——宏——运行宏,如果出现“该工程的宏被禁止”之类的提示,在工具——宏——安全性中的选项改为中或者低即可。
最后,等导入vcard的窗口不停的闪现完之后,就可以把outlook联系人同步到新手机啦。哦也~

解决vcard乱码批量导入outlook相关推荐

  1. EndNote 毕业论文开题报告 批量导入 参考文献

    目录 序(可跳过) 参考链接 一.下载与安装 二.注意事项(很重要) 1.参考文献的国标格式 a.Chinese Std GBT7714 (numeric).ens b.geebinfmodified ...

  2. txt 乱码_STATA数据导入——将TXT、EXCEL、SAS、SPSS数据/批量导入STATA

    作者:Misszhou早早早 邮箱:zlr1220@126.com 使用Stata进行数据分析时面临的第一个问题是如何将各种类型的数据转换为dta.格式,导入的途径主要有以下几种: Stat/Tran ...

  3. 随笔编号-09 批量导入数据(Mysql)报MySQL server has gone away 问题的解决方法

    问题场景: 使用*.sql 脚本,批量导入数据到mysql实例中,使用DOS 界面导入的,期间,到最后一步 source D:\aaa.sql  回车后,系统提示 MySQL server has g ...

  4. 使用cardme读写VCard文件,实现批量导入导出电话簿

    转载自 使用cardme读写VCard文件,实现批量导入导出电话簿 首先下载jar包cardme. http://sourceforge.net/projects/cardme/?source=nav ...

  5. 【板栗糖GIS】3dmax—使用脚本批量导入obj格式时一直 需要点击重命名改如何解决

    [板栗糖GIS]3dmax-使用脚本批量导入obj格式时一直 需要点击重命名改如何解决 以个人经验看,脚本没有问题,是使用的3dmax版本太低,比如我在3dmax2016上一直有需要重命名问题,但是后 ...

  6. 大数据批量导入,解决办法,实践从定时从 sqlserver 批量同步数据到 mySql

    c#代码,批量导入数据代码 public class MySql_Target : ZFCommon.DataAccesser.Base.DABase{public MySql_Target(){th ...

  7. 关于谷歌学术搜索.enw格式批量导入endnote的解决方法

    1.将所有的.enw文件放在一个文件夹中: 2.利用dos命令copy *.enw new.enw将该文件夹中所有的.enw文件合并为一个new.enw文件: 3.用notepad++打开,先用< ...

  8. 文本导入ORACLE快速,Oracle批量导入文本文件快速的方法(sqlldr实现)

    前言 最近做项目的时候需要导入一批3000多万条的POI数据到Oracle数据库,简单的插入导入速度太慢,使用sqlldr 批量导入3000多万条数据花了20分钟左右,速度还可以,现在分享给大家,具体 ...

  9. 批量导入手机通讯录_手机QQ批量导入电话号码

    这个小技巧在三年前我已经写过一回了,但现在QQ也更新了几个版本,原来的方法操作起来总有些功能受限,所以重新写过. 操作大致分三步 第一步:在电脑上做一个电子表格,按自己的需要保留必需的项目,我这里只填 ...

  10. 手机号码批量导入通讯录php,怎么从电脑上的excel表格的手机号码导入通讯录到华为手机:...

    如何将电脑中的Excel表格导入手机中 excel文件就如果图片音乐文件一样可被传送到手机中. 传送方法可以是用数据线把手机作为存储设备使用或用无线如QQ等可以传送文件的应用程序. 但手机上要想打开E ...

最新文章

  1. 身份证号码验证-支持新的带x身份证
  2. 写时复制,写时拷贝,写时分裂,Copy on write
  3. android oppo调试模式,OPPO A59 开启USB调试模式
  4. Android鬼点子 100行代码,搞定柱状图!
  5. c++学习笔记之运算符重载
  6. QGridLayout比例
  7. 微信品牌小程序开启公测 认证通过即享专属产品能力
  8. 视觉错觉模型_极具视觉爆发力的影院设计
  9. 分享30个应用HTML5的网站案例
  10. OpenGL第六节:加载png图片
  11. 编写高质量代码改善C#程序的157个建议——建议38:小心闭包中的陷阱
  12. 【Tableau Desktop 企业日常问题28】Tableau 如何发布到public ?
  13. Onedrive创建软链接同步指定文件夹
  14. 反向安装jar包到本地仓库和清除本地仓库中未下载成功的jar包
  15. 什么是幂等?如何实现
  16. 网红“小红书”,电商销售新模式
  17. 最全Markdown教程
  18. 西游记中观世音菩萨的三个箍
  19. java操作linux命令,调用ffmpeg转码视频
  20. linux 微信告警消息secret,Zabbix3.0.4微信告警配置详解

热门文章

  1. MQTT测试工具推荐
  2. 错误日志分析(dSYM)-2016
  3. 国内电波钟和石英钟表相比有何优势?
  4. IOCCC(The International Obfuscated C Code Contest)
  5. HTML——超链接、音视频
  6. AdapterView相关
  7. stc51单片机入门 c语言,STC51单片机入门(语言)
  8. 【电路基础】第1章-电路的基本规律(1)
  9. 【历史上的今天】3 月 1 日:个人计算机鼻祖问世;天涯社区上线;Shell 排序算法作者诞生
  10. 计算机图形学(裁剪)