【宏】解决vcard乱码&批量导入outlook
2018-01-30 15:50
405 查看
如果不是某人用的国产手机,我还真不知道现在好多国产手机联系人的导出格式居然是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)插入——模块,复制粘贴以下代码,并保存; 普通浏览复制代码 Sub OpenSaveVCard() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder(”C:\vcards”) For Each fsFile In fsDir.Files strVCName = “C:\vcards\” & fsFile.Name Set objOL = CreateObject(”Outlook.Application”) Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject(”WScript.Shell”) objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub (4)把所有的vcard文件存放至C盘,vcard目录下(当然你也可以放在别处,只要修改以上代码中相应的路径); (5)回到outlook界面,工具——宏——运行宏,如果出现“该工程的宏被禁止”之类的提示,在工具——宏——安全性中的选项改为中或者低即可。 最后,等导入vcard的窗口不停的闪现完之后,就可以把outlook联系人同步到新手机啦。哦也~ |
相关文章推荐
- 解决vcard乱码&批量导入outlook
- 文件夹批量导入多个txt文件到mysql及问题解决
- django中批量导入文本数据出现问题的解决方法
- SSIS(SQL Server2005 Integration Services)批量导入Excel文件 Excel连接报错解决
- 关于谷歌学术搜索.enw格式批量导入endnote的解决方法
- 借助Excel实现Outlook联系人批量导入 推荐
- 在outlook中批量导入MSG文件
- [已解决]C#批量高效率导入大数据到数据库[百万级以上]
- mysql 实现批量导入,并解决中文乱码问题
- oracle 导入数据库脚本后,有些视图或者存储过程没有自动编译的批量解决方式
- BAPI调用 - 批量创建物料BAPI:BAPI_MATERIAL_SAVEDATA 毛重无法导入以及指定单位报错等问题解决
- 解决mapreduce无法将数据批量导入hbase的问题
- 随笔记录——批量导入vCard格式联系人到Outlook
- 通过outlook批量导入导出vcard文件
- sqlserver 2005 利用游标解决标量值函数主键自增id批量导入数据问题
- Eclipse中导入android项目名前有红叉但项目内文件无错误问题解决方法
- eclipse+svn 导入项目 java中引入和包名报错解决办法
- 批量导入excel表格数据到数据库中
- VS2017下使用Cocos 2dx导入图片出现“Expression: child != nullptr”的解决方法
- Python批量导入图片生成PowerPoint 2007+文件