Outlook'a toplu Vcard kayıt sorunu ?

[Gorarr]

Selamlar konu excel dışı, forum kurallarına uygun değilse kaldırılabilir.

Sonuçta VBA ile ilgili olduğu için siz üstadlarıma danışayım dedim. Ben iphone dan tel. rehberimi 300 kadar vcf dosyası toplu olarak pc ye aldım ve outlooka toplu olarak aktarmanın yolunu arıyordum. Aşığıda verdiğim kodu yabancı bir sitede buldum ama bende "User-defined type not difened" hatası veriyor. Yardımcı olabilirseniz sevinirim. Olmazsada tek tek kaydederim sağlık olsun.

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