前段時間忙於考試、數模等事情，沒學到多少東西，再加之忘記了密碼，很多心得都懶得去整理，今天更新一下比較完整的教程，較上篇補充了一點內容。接下來我應該會寫一些數模中使用Netica的心得，希望我懶癌不要太嚴重。
在中小型集團、社團中，管理者常常需要批量存儲成百上千個聯系人，但手動輸入的效率極低。本文依據“有頭像”和“無頭像”兩種情況，分別介紹批量存儲聯系人信息最簡單的方法。
一、無待存儲聯系人的頭像
在管理者只有聯系人的姓名、編號、電話、住址等信息，沒有照片作為聯系人頭像的情況下，批量存儲聯系人十分容易，推薦使用QQ同步助手和360手機助手。
使用QQ同步助手的方法請參考鏈接：http://jingyan.baidu.com/article/851fbc37e0a94d3e1f15ab94.html ，這種方法的優點是，該軟件是可以安裝在所有智能手機平台（Android、iOS、WP），且擁有網頁版，可以雲端修改保存，在所有手機上同步。
使用360手機助手的方法請參考鏈接：http://jingyan.baidu.com/article/5225f26b0f7853e6fa0908f8.html ，該軟件是360軟件管家（PC端）的附屬工具，優點是只在電腦本地操作，不需要上傳到雲，簡便、安全，缺點是只適用於Android系統。
【注意事項】
1、以上兩種方法的精髓在於可以利用軟件指定格式的CSV表格存儲聯系人姓名、電話以外的其他字段，例如：宿舍號、家庭住址、父母姓名等，只需按照自己的設定將其對應到表格中的某一列即可，但要考慮到這個字段本身的格式（例如電話一欄就不能寫文本）。
2、Android各廠商如小米、魅族等都擁有自己的通訊錄雲服務，除部分字段表示有區別外，方法大同小異，可自行了解。
二、有待存儲聯系人的頭像
【使用本方法的前提】
1、聯系人與其用作頭像的照片有一一對應的關系，例如所有的照片都是以“學號.jpg”命名的，且尺寸基本一致。
2、擁有office專業增強版的outlook軟件。
3、擁有微軟賬號（可選）。
【操作步驟】
1、新建一個excel工作薄，將姓名、學號、民族等信息，按對應關系粘貼到表格里，並另存為csv格式。
2、打開outlook軟件，選擇本地賬戶聯系人（切記是本地），點擊文件——打開和導出——導入/導出，
接着點擊：從另一程序或文件導入——下一步——逗號分隔的值（Windows）——下一步——瀏覽(選擇文件)——下一步——下一步，看到如下頁面，
點擊“映射自定義字段”后，將左側已設計好的csv表格中的所有字段（例如姓名、手機號、家庭住址等）分別拖動到右側outlook聯系人中對應的屬性中，這樣可以使得所有在csv文件中存儲的信息都能導入到outlook聯系人卡片中，避免丟失信息，當然如果你的csv表格一開始就完全按照outlook的字段編輯的話，就可以忽略這一步由系統自動映射了。
點擊確定——完成，等待半分鍾左右，聯系人列表已經生成完畢，除了頭像以外的其他字段信息如下所示（為了保護隱私各個信息做了處理），我們使用了iPhone4S、小米2S和魅藍Note做測試，采取了這種折衷的辦法，將“學號”與outlook中的“部門”字段映射，將“家長姓名及關系”與“省份”映射，將“宿舍和民族”與“公司”映射等等，這些都是為了避免在某些機型上由於廠家優化原因導致某些字段不能顯示的情況（比如某手機就可能無法顯示你映射在“商務地址”中的信息，outlook也很無奈），同時各類信息聚合在一起緊湊美觀，易於分辨。因此在操作的時候需要多次檢驗，找到最合適的安排方法。
3、接下來是將照片添加到各個聯系人中，在鍵盤上按Alt+F11進入outlook的VBA，輸入以下代碼：
1 Public Sub UpdateContactPhoto() 2 3 Dim myOlApp As Outlook.Application 4 5 Dim myNamespace As Outlook.NameSpace 6 7 Dim myContacts As Outlook.Items 8 9 Dim myItems As Outlook.Items 10 11 Dim myItem As Object 12 13 Set myOlApp = CreateObject("Outlook.Application") 14 15 Set myNamespace = myOlApp.GetNamespace("MAPI") 16 17 Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items 18 19 Dim fs As Object 20 21 Set fs = CreateObject("Scripting.FileSystemObject") 22 23 For Each myItem In myContacts 24 25 If (myItem.Class = olContact) Then 26 27 Dim myContact As Outlook.ContactItem 28 29 Set myContact = myItem 30 31 Dim strPhoto As String 32 33 strPhoto = "C:\photos\" & myContact.Categories & ".jpg" 34 35 If fs.FileExists(strPhoto) Then 36 37 myContact.AddPicture strPhoto 38 39 myContact.Save 40 41 End If 42 43 End If 44 45 Next 46 47 End Sub
紅色行是需要修改的內容，這里有兩個細節，首先應將按照前述命名規則整理好的照片存入如上所示路徑（C:\photos\），也可以是任意路徑，修改上述代碼中的路徑即可，接着需要查閱Outlook 字段和等同屬性https://msdn.microsoft.com/zh-cn/library/ff868508.aspx ，比如我們將學號映射在了outlook的“部門”這一欄，而照片都是以“學號.jpg”命名的，因此需要查閱“部門”的屬性名為Department，將上述紅字myContact.Categories改為Department，再按F5運行就完成了照片的匹配。
4、接下來有兩種方案：喜歡雲同步的人可以使用一個微軟賬號，登陸進outlook里，將本地聯系人里面剛剛已生成的所有聯系人復制進微軟賬號中，在任意智能手機的“郵件”APP添加微軟賬號就可以同步這些聯系人了，隨時修改隨時同步。
對雲同步恐懼的人可以全選本地聯系人，點擊outlook軟件的開始——轉發聯系人——作為名片，等待兩三分鍾后，全選附件中的vCard，保存到一個新文件夾中，再直接存進手機，利用手機通訊錄導入vCard的功能即可完成操作。
【注意事項】
1、csv是以逗號為分隔符的通訊錄格式，可以方便地導入到outlook，並同步到郵箱賬戶里，每次保存時，會將所有文本格式的數據改為默認格式，因此每次修改保存之前必須將“學號”重新粘貼，否則結果會產生錯誤。並且保存時，會提示兩到三次，均同意即可。
2、能自動對應聯系人頭像的方法目前只有這一種比較簡便，前面尋找最佳映射方案都是為了能快速地添加頭像，否則就只好在手機端或者上述QQ同步助手和360手機助手中逐一添加，這其中的學習成本和重復勞動的成本可以自己權衡。
上述教程如有描述不清的地方，或發表看法，可以留言聯系我，謝謝批評指正。