打开outlook按 ALT+F11打开宏编辑器,输入代码
Public Sub UpdateContactPhoto()
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myContacts As Outlook.Items
Dim myItems As Outlook.Items
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
For Each myItem In myContacts
If (myItem.Class = olContact) Then
Dim myContact As Outlook.ContactItem
Set myContact = myItem
Dim strPhoto As String
' use myContact.LastNameAndFirstName = "last, first.jpg" format
' replace "C:\photos\" with the correct path.
' strPhoto = "C:\photos\" & myContact.FullName & ".jpg"
strPhoto = "C:\photos\" & myContact.Categories & ".jpg"
' use for testing only, to confirm the path is correct.
' Delete or comment out
' MsgBox (strPhoto)
If fs.FileExists(strPhoto) Then
myContact.AddPicture strPhoto
myContact.Save
End If
End If
Next
End Sub
按F5运行,片刻即可将联系人批量自动添加上图片!当然兄台有闲心亦可以姓名为关键字进行图片匹配,只需修改红字部分。
OUTLOOK中编辑好以后,用同步软件 Go Contact Sync Mod 将本地OUTLOOK数据上传至GMAIL联系人,然后再手机同步GMAIL,那么手机上联系人就通通有图片了!
htc sync可以与outlook同步~
*******************************************
1、首先将csv格式的通讯录导入到outlook----打开文件导入,注意对应关系,以及+86,010(区号)和特殊字符的处理,建议都删掉
2、alt+F11运行宏
3、将htc手机中的通讯录 备份,并全部删除-----可以利用豌豆荚等同步工具
4、使用htc sync将outlook通讯录与手机同步。
*******************************************