特定のフォルダに保存するOutlook 2010のVisual Basicマクロ？

Question

私は以前の電子メールクライアントの人々をOutlook 2010に変換しようとしています。連絡先を効率的に変換しようとすると苦労する可能性があります。私が使用しているプロセスは一点に作用します。連絡先からすべてのVCardを取得し、これらのVCardをすべてインポートするマクロオンラインのソースコードを見つけました。問題は「連絡先」アドレス帳に既定であることです。ここでは、コードは次のとおりです。

Sub OpenSaveVCard() 

    Dim objWSHShell As IWshRuntimeLibrary.IWshShell 
    Dim objOL As Outlook.Application 
    Dim colInsp As Outlook.Inspectors 
    Dim strVCName As String 
    Dim fso As Scripting.FileSystemObject 
    Dim fsDir As Scripting.Folder 
    Dim fsFile As Scripting.File 
    Dim vCounter As Integer 

    Set fso = New Scripting.FileSystemObject 
    Set fsDir = fso.GetFolder("C:\VCARDS") 

    For Each fsFile In fsDir.Files 
     strVCName = "C:\VCARDS\" & fsFile.Name 
     Set objOL = CreateObject("Outlook.Application") 
     Set colInsp = objOL.Inspectors 
     If colInsp.Count = 0 Then 
       Set objWSHShell = CreateObject("WScript.Shell") 
       objWSHShell.Run strVCName 
       Set colInsp = objOL.Inspectors 

       If Err = 0 Then 
        Do Until colInsp.Count = 1 
        DoEvents 
        Loop 
        colInsp.Item(1).CurrentItem.Save 
        colInsp.Item(1).Close olDiscard 
        Set colInsp = Nothing 
        Set objOL = Nothing 
        Set objWSHShell = Nothing 
       End If 
     End If 
    Next 
End Sub 

私はVisual Basicおよび書き込みマクロを過度に慣れていないよ、私は本をに保存するアドレスを指定することができます方法はありますか？たとえば、「Test」というアドレス帳があるとします。何か助けてくれてありがとう。あなたはこの種のコードをアドレス帳にアクセスすることができますSession.AddressBook（見つけhere）

を使用することができるように

Answer 1

はそう：私のバージョン（2007年）で

Set olkRecipients = cdoSession.AddressBook(, "Global Address List", 0, False) 

、私が見つけたプロパティがSession.AddressListsだったとAddressbookが見つかりませんでした。試してみて、どちらがうまくいくか見てみましょう。