打开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通讯录与手机同步。
*******************************************