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...

outlook2010批量导入导出联系人

持续关注工作效率提高,需要相关Office学习资料请留下邮箱地址。 导出 文件->选项->高级->导出->导出到文件->Microsoft Excel 97-2003->联系人->浏览->下一步->(...

从excel中批量导入生成VCF文件

  • 2013年01月09日 21:17
  • 50KB
  • 下载

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

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

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

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

outlook联系人导入lotus notes

  • 2015年06月15日 11:14
  • 652KB
  • 下载

2010 outlook导入QQ邮箱联系人

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

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

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

Outlook 2007导入Excel通讯录

通讯录通常是用Excel来保存的。把通讯录里的联系方式存到自己的邮箱或手机通讯录时,如果一个个手动来添加自然麻烦。幸好,MS Office的Outlook组件提供了导入通讯录的功能。我的做法是先用Ou...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:outlook2007利用宏批量导入vcf文件为联系人
举报原因:
原因补充:

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