因為公司原信箱在寄信時沒辦法寄超過六個人（我不懂為什麼）
所以我只好去研究這讓我非常苦手outlook2007
以防到時候又要做大規模發送文章時還得六個六個寄

然後
才在設定信箱覺得簡單時
馬上就碰到這問題了-----------聯絡人要自行輸入
到公司信箱去把聯絡人匯出成vcf檔還後
不管再怎麼新增都只新增到第一筆資料而已
一整個麻煩到了極點


還好
在我尋找了一個早上之後（謎：這樣好嗎？你不是在上班= =？）
終於發現了這個好用的東西了！！


原網址：http://forum.palmislife.com/thread-40197-1-1.html


我不知道能不能轉載
我也沒有權限留言
而那作者本身的blog是自己做的，我找不到留言的地方= =
所以如果覺得不行轉貼要跟我說一聲唷！我再撤下





好了
廢話不多說
馬上來教如何使用


1.首先，將你想匯的信箱的聯絡人匯出成vcf檔（盡量存在沒中文字的資料夾下，ex.C:\）
2.開啟outlook中的工具－巨集－VB編輯器
3.開啟VB中的工具－設定引用項目，將 Windows Script Host Object Model打勾
4.打開左邊的專案到最底，會開啟一個可編輯的程式碼頁面，將以下內容複製至裡頭

  1. Option Explicit

  3. Sub ImportMultiVCF()
  4.     Dim strPath As String
  5.     Dim strVCF As String
  6.     Dim strTemp As String
  7.    
  8.     Dim objFSO As Object
  9.     Dim objTF1 As Object
  10.     Dim objTF2 As Object
  11.     Dim strLine As String
  12.     Dim strBuf As String

  14.     Dim objOL As Outlook.Application
  15.     Dim objInsp As Outlook.Inspectors
  16.    
  17.     Dim objWSHShell As IWshRuntimeLibrary.IWshShell
  18.    
  19.     'modify these settings
  20.     strPath = "D:\TEMP\VCARD\"
  21.     strVCF = strPath & "all.vcf"
  22.     strTemp = strPath & "temp.vcf"
  23.     'end
  24.    
  25.     Set objFSO = CreateObject("Scripting.FileSystemObject")
  26.     Set objTF1 = objFSO.OpenTextFile(strVCF, ForReading)
  27.    
  28.     Set objOL = CreateObject("Outlook.Application")
  29.     Set objInsp = objOL.Inspectors
  30.    
  31.     Set objWSHShell = CreateObject("WScript.Shell")
  32.    
  33.     strLine = objTF1.ReadLine
  34.     strBuf = ""
  35.     Do While (Not objTF1.AtEndOfStream)
  36.    
  37.         Do While (Left(strLine, 3) <> "END")
  38.             strBuf = strBuf & strLine & vbCrLf
  39.             strLine = objTF1.ReadLine
  40.         Loop
  41.         strBuf = strBuf & strLine & vbCrLf
  42.         
  43.         Set objTF2 = objFSO.CreateTextFile(strTemp, ForAppending)
  44.         objTF2.Write strBuf
  45.         objTF2.Close
  46.         Set objTF2 = Nothing
  47.         strBuf = ""
  48.    
  49.         objWSHShell.Run strTemp
  50.         
  51.         Do Until (objInsp.Count = 1)
  52.                 DoEvents
  53.         Loop
  54.         
  55.         On Error Resume Next
  56.         objInsp.Item(1).CurrentItem.Save
  57.         objInsp.Item(1).Close olDiscard
  58.         On Error GoTo 0
  59.             
  60.         strLine = objTF1.ReadLine
  61.     Loop
  62.     objTF1.Close

  64.     Set objWSHShell = Nothing
  65.     Set objInsp = Nothing
  66.     Set objOL = Nothing
  67.     Set objTF1 = Nothing
  68.     Set objFSO = Nothing

  70. End Sub
複製代碼


5.將20和21替換成自己存放vcf的位置
　　　ex.如果是D:\global.vcf
　　　　就改寫成：
　　　　strPath = "D:\"
　　　　strVCF = strPath & "global.vcf"

6.按下上方有個綠綠的箭頭，她就會開始幫你一筆一筆新增了～！



這功能讓我覺得outlook愈來愈可愛了......
因為會看我網誌的人比較沒有碰過程式
所以我步驟寫的比較仔細
目前應該只有公司信件我會用outlook唄？
msn我還是覺得用線上的hotmail比較快(反正msn都開著，一點就開了)

以後有想匯入的聯絡人，只要丟到同一個目錄下
然後將黨名改成同一個
再按綠色小鍵頭就可以輕鬆匯入了

......我來把MSN的聯絡人也匯進來好了XD（謎：你匯這個幹嘛= =）

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 G星月兒M 的頭像
    G星月兒M

    尋星築月

    G星月兒M 發表在 痞客邦 留言(1) 人氣()