エッセイ-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,運転....
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