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

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

Sub OpenSaveVCard() rem 批量文件改名(去除文件名中的“_”和空格) Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim...
  • lazydie
  • lazydie
  • 2012年03月27日 15:45
  • 1171

outlook2010如何导入csv的通讯录?

1, 打开Outlook2010,依次单击“文件>打开>导入”。 2,在导入和导出向导中,选择“从另一程序或文件导入”,然后按“下一步”。 3,文件类型请选择“逗号分隔的值(windows)”,然...
  • weizhiai12
  • weizhiai12
  • 2013年02月28日 10:46
  • 4549

批量添加手机联系人 | csv/excel转vcf

故事的起因女朋友是个业务员。 需要把客户电话存到手机里。 嗯,每天都有几十个吧。 就这样。初次尝试我一开始的做法是,用360手机助手之类的用备份功能,导出excel文件,然后再恢复回去。 然而...
  • wangqianyilynn
  • wangqianyilynn
  • 2017年08月05日 10:03
  • 435

vCard(.vcf)文件批量导入Gmail联系人的快速方法

一个超级快速,简单的导入方法!
  • cywater2000
  • cywater2000
  • 2011年01月09日 15:23
  • 4781

联系人备份--vcf

是什么vcf是通讯录导出的一种格式怎么样百度是这样说的 VCF格式通讯录格式现在用途广泛,一般诺基亚、摩托罗拉手机导出通讯录的格式即为VCF。可以把VCF格式保存到电脑上以备不时之需。而且现在很多...
  • cdhahaha
  • cdhahaha
  • 2017年08月24日 15:12
  • 303

Android 导出.vcf格式通讯录方法

最近在做的项目中涉及到Android手机联系人同步,研究vCard格式好久,原本想手动解析发现比较复杂,google到更简便的方式,可直接导出vCard格式的联系人,代码如下: /** Expor...
  • shz_gy
  • shz_gy
  • 2013年09月12日 17:33
  • 3194

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

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

将自己的Access数据库通讯录导入手机通讯录

将自己的Access数据库通讯录导入手机通讯录要换用儿子的Sony Ericsson K700手机。换手机本身没有什么,但让我最头痛的事情是换手机意味我原来手机里的几百个电话号码薄作废了,需要在新的手...
  • JianZhiZG
  • JianZhiZG
  • 2007年07月14日 17:22
  • 4804

vcf通讯录格式解析

工具类 package hd.com.xposeddemo.utils; import java.io.ByteArrayOutputStream; import java.io.Un...
  • caizhigui
  • caizhigui
  • 2017年01月22日 10:07
  • 1317

转换vcf文件到csv文件的python脚本

         想把手机通讯录从vcf文件格式转换到excel里,gmail不给力,win7又没装outlook,下了几个软件,不是错误一堆,就是一堆病毒,怒了,晚上用python写个小脚本试...
  • wsxwang
  • wsxwang
  • 2015年07月21日 23:24
  • 1834
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:outlook2007利用宏批量导入vcf文件为联系人
举报原因:
原因补充:

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