Palm Desktop to Outlook 通訊錄轉換工具

mfhsieh

不知道有沒有人跟我一樣，通訊錄主要在 Palm Desktop 上，但 Outlook 上也常要維持一份。若用 cvs 來轉檔，如果在 PALM 上把欄位順序改變後，常常會得到錯亂的結果。若用 vcard 的方式轉檔，Palm Desktop 可以一次轉出所有的聯絡人在同一個 vcf 上，可是 Outlook 卻只會匯入第一筆資料。

所以，有了下面的 VBA script。

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

複製代碼

其中 strPath 是工作目錄 (即 "D:\TEMP\VCARD\"，可自行更改)，從 Palm Desktop 轉出的 vcf 檔要放在工作目錄下，檔名為 strVCF (即 "all.vcf"，可自行更改)。

用法：
1. 在 Outlook 的 VB 編輯器中，加入上面那一段程式。
2. 在 Palm Desktop 把聯絡人全選後，轉存成 vcf 檔。
3. 執行上面那一段程式。

其中第一個步驟只要第一次做過就可以了。以後就重覆第 2, 3 步驟。

[ Last edited by mfhsieh on 2004-11-29 at 19:54 ]

mfhsieh

原文由 5dpulo 於 2006-6-13 16:22 發表
小弟使用時出現一個問題"找不到檔案"! 偵錯時指向這一行:
    Set objTF1 = objFSO.OpenTextFile(strVCF, ForReading)

請問要如何修改?

順便回個兩年前的問題

    'modify these settings
    strPath = "D:\TEMP\VCARD\"
    strVCF = strPath & "all.vcf"
    strTemp = strPath & "temp.vcf"
    'end

要先指定工作目錄 (strPath)
Palmdesktop 匯出 vcf 時，要放到工作目錄下，取名 all.vcf。
--
答案應該也不重要了！

mfhsieh

原文由 liaolc 於 2008-11-12 18:12 發表
嗯...這個現成的工具蟹老板就有提供過了啊
http://www.palmislife.com/viewth ... ht=OUTLOOK%2BCANCER

當初寫那一段 code，主要是為了在手頭沒機器或是沒連接線時用的。

liaolc

嗯...這個現成的工具蟹老板就有提供過了啊
http://www.palmislife.com/viewth ... ht=OUTLOOK%2BCANCER

5dpulo

小弟使用時出現一個問題"找不到檔案"! 偵錯時指向這一行:
    Set objTF1 = objFSO.OpenTextFile(strVCF, ForReading)

請問要如何修改?

mfhsieh

謝謝啦！

居然能找到快三個月前的文章！

mfhsieh

忘了提，因為用到 windows script host，所以要在 vb 編輯器內，選

工具->設定引用項目

然後把 Windows Script Host Object Model 打勾後，按確定。才能正常引用 WScript.Shell。

mfhsieh

Originally posted by doobop at 2004-11-29 19:49:
感謝分享
您的意思是strPath = "D:\TEMP\VCARD\"這段Code可以改成自己所需的路徑嗎?
Thx！

Yes!

doobop

感謝分享
您的意思是strPath = "D:\TEMP\VCARD\"這段Code可以改成自己所需的路徑嗎?
Thx！