批量修改outlook联系人头像，并同步手机

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

*******************************************

转载于:https://www.cnblogs.com/dorothychai/archive/2012/07/11/2586178.html