注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

苏州美乐科技

苹果iPhone方面

 
 
 

日志

 
 

各类联系人的导入与导出FOR iPhone,andriod,outlook......  

2011-08-05 23:51:38|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Vcard批量 2 outlook:

(方法一)窗口键 R调出运行窗口,键入 cmd 回车,将盘符改为你的vcards文件所在的盘,比如你的vcards文件在d盘的contact文件夹内,如下:
键入d:回车
键入cd   \contact 回车
键入copy   /B   *.vcf   all_in_one.vcf (将该目录下所有的VCF文件合并成一个文件)
然后就变成一个vcards文件了。
然后,打开OUTLOOK,选择文件-导入和导出向导-导入vcard文件,下一步,选择d盘的contact文件夹内的all_in_one.vcf文件就可以导入到OUTLOOK了。

(方法二):

批量导入。
    1,把所有Vcards文件放在一个文件夹内。C:\VCARDS(这个路径需要和代码中的路径相同)
    2,打开Outlook的VBA编辑器。(ALT F11 呼出)
    3,单击“工具”–>“引用”,勾中“Windows Script Host Object Model ”和“Microsoft Scripting Runtime”
    4,单击“插入”–>“模块”,把下列代码粘帖进去。保存名字例如“A”。
    5,单击“工具”–>“运行”–>“宏”,运行刚才保存的名字“A”。
    6,运行….
代码如下:
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 collnsp = objOL.Inspectors
If collnsp.Count = 0 Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run Chr(34) & strVCName & Chr(34)
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批量 2 vcards:

outlook中. 工具->宏, 创建一个新的宏, 名称任意, 输入:

Sub ExportVcards()
Dim MyContacts As Outlook.MAPIFolder
Dim ContItem As Outlook.ContactItem
Dim FileName As String
Set MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
For Each ContItem In MyContacts.Items
FileName = "d:\Contacts\" & ContItem.FileAs & ".vcf"
ContItem.SaveAs FileName, olVCard
Next
End Sub

注意上面的”d:/Contacts”为输出到的目的文件夹.
然后运行, 如果失败, 请检查”c:/Contacts”文件夹是否存在 (不存在则要先创建), 以及outlook中, 工具->安全性, 是否有权限运行宏.

(或者使用第三方软件:http://www.diypda.com/viewthread.php?tid=120252

 

Vcard批量 2 outlook:

方法三:

1、在Outlook联系人中选定要导出的多个联系人(按CTRL-A选择全部)
2、选择“动作”菜单下的“作为vCard转发”
3、Outlook会自动创建一封新邮件,将选定的联系人导出vCard并添加为附件
4、在生成的新邮件窗口选择“文件”菜单下的“保存附件”,所有的vCard就存到硬盘上了
?
已经用这种方法将Outlook中的所有联系人导入到Samsung SCH-i539的电话本里了

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

CSV 2 VCARD:
 EXCEL的CSV文件转成VCARD

http://www.ahtczx.com/nethd/getinfo/CSVtovCard.htm

  评论这张
 
阅读(2476)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017