outlook2007利用宏批量导入vcf文件为联系人

原创 2012年03月27日 15:45:05

 

Sub OpenSaveVCard()

rem 批量文件改名(去除文件名中的“_”和空格)
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
strName = Replace(strVCName, "_", "")
strName = Replace(strName, " ", "")
Name strVCName As strName
 Next
End Sub


Sub OpenSaveVCard1()

rem 批量导入
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

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

批量导出Outlook所有联系人到vcard文件

Outlook使用时间久了,通讯录里面会存有很多经常联系的联系人信息(邮箱、电话、手机等)。当你换手机时,有时候很希望能把这些联系人的信息导入到手机通讯录中,但是一般Android的手机只可以导入vc...

将联系人信息导出为CSV和VCF格式文件

上篇文章中,我们介绍了如何从csv和vcf格式的文件中获取联系人信息。链接: 这次我们反着来,将联系人信息导出为这两种格式的文件。上篇文章中我们已经介绍了这两中格式文件,不再赘述。   1.导出为...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

从CSV和VCF文件中获取联系人信息

上一篇文章中我们实现了从系统的联系人数据库中获取联系人信息。文章链接:http://blog.csdn.net/github_36878269/article/details/73826289   ...

2010 outlook导入QQ邮箱联系人

今天打开foxmail的时候,发现自己的已经是老版本了,为了体验一下最新的版本,从网上下载安装了最新版本7.0.1.90。可是当我在添加新帐号的时候出现“未响应”并且自己就关闭了,进行其他操作的时候反...

2010 outlook导入QQ邮箱联系人

今天打开foxmail的时候,发现自己的已经是老版本了,为了体验一下最新的版本,从网上下载安装了最新版本7.0.1.90。可是当我在添加新帐号的时候出现“未响应”并且自己就关闭了,进行其他操作的时候反...

Outlook express 2010 使用技巧(配置账户 导出和导入联系人 创建规则和来信提示 创建快速步骤)

1 说明 2 配置账户 3 导出和导入联系人 4 创建规则和来信提示 5 创建快速步骤

解析VCARD文件(vcf格式)导入QQ通讯录功能

参考了这篇文章:
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)