In Outlook 2010, is it possible to drag & drop a .VCF into your Contacts folder and have a contact created without having to click 'Save & Close' for each?  (Note: This would be by way of a native feature or option, not a macro or third-party component.)

One of our users reported that she has lost the ability to drag & drop VCF files into Contacts and have the contacts created immediately without having to click 'Save & Close'.  According to her, this changed recently and now when she does this, a contact window appears for each .VCF and she must click the 'Save & Close' button on each before its actually saved.

We're in an environment where we're supporting two image builds: an older one from a few years back and a new one created recently.  We can't reproduce this behavior in either build and we've never seen/heard of this behavior before.

• Edited by JuliusPIV Tuesday, July 21, 2015 6:17 PM

In Outlook 2010, is it possible to drag & drop a .VCF into your Contacts folder and have a contact created without having to click 'Save & Close' for each?  (Note: This would be by way of a native feature or option, not a macro or third-party component.)

.....................

We're in an environment where we're supporting two image builds: an older one from a few years back and a new one created recently.  We can't reproduce this behavior in either build and we've never seen/heard of this behavior before.

If the "auto-saving" functionality has ever "natively" existed - not something I've ever run across in any version of Outlook. Something no doubt has changed on her system but seriously doubt it was something "specific" to Outlook itself.

Hi Julius,

When we drag and drop VCF files into Outlook Contacts folder, each vCard will open and we need to click Save & Close to add them to Outlook. This is the expected behavior of Outlook.

If you want to import multiple VCF files into Outlook without clicking 'Save & Close', we can use a macro to achieve the goal:

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
 
'original code
'strVCName = "C:\vcards\" & fsFile.Name
 
'Zeda's fix for spaces in filenames
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

Reference: http://www.slipstick.com/developer/macro-to-bulk-import-vcards/

Or, we can use some third-party tools to do it. See:

http://www.slipstick.com/outlook/contacts/import-vcards-in-bulk-into-outlook/

Please Note: Since the web site is not hosted by Microsoft, the link may change without notice. Microsoft does not guarantee the accuracy of this information.

Best Regards,

Steve Fan

Forum Support