エッセイ-vCard形式の連絡先をOutlookに一括インポート

1578 ワード

インターネット上でOutlookからVcard形式を一括エクスポートするチュートリアルの説明がありますが、Vcard形式の連絡先をOutlookに一括インポートする方法についてのチュートリアルはほとんどありません.私はネット上で以下の操作手順を見つけました.成功しました.ここで共有します.
1、すべてのVcardsファイルを1つのフォルダに入れます.例えば、C:vcards;
2、OutlookのVBAエディタ(ALT+F 11呼び出し)を開きます.
3、「ツール」->「参照」をクリックし、「Windows Script Host Object Model」にチェックを入れます.
4、「挿入」->「モジュール」をクリックして、次の青いフォントコードを貼り付けます.例えば「A」などの名前を保存します.
5、「ツール」->「実行」->「マクロ」をクリックし、先ほど保存した名前「A」を実行します.
6,運転....
 
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 Chr(34) & strVCName & Chr(34)

      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