The macro above works with vCard files and replicates the action of opening the vCard and clicking Save, which saves it to the Contacts folder. Set objWSHShell = CreateObject("WScript.Shell")Įnd Sub Import Contacts Saved as MSG Files Set objOL = CreateObject("Outlook.Application")
StrVCName = """C:\vcards\" & fsFile.Name & """" Save and run the macro to automatically import and save all the individual files into Outlook.ĭim objWSHShell As IWshRuntimeLibrary.IWshShell Go to Tools, References and select Microsoft Scripting Runtime and Windows Script Host Object Model from the list and place checks in the box next to each and click OK.Ĭlick Insert, Module and copy and paste the following code into the blank module. Next open Outlook and press ALT + F11 to open the VBA editor. (You can use a different folder but will need to update the macro with the correct folder path.) Copy all your individual vCard files (.vcf) to this folder. Macro to bulk import vcardsīegin by creating a folder named vcards on root of the c:\ drive. Unless you are Superman, the macro will finish long before you would. This can also be done using VBA, basically automating the process you'd use to do it manually: open each contact, save in your default Contacts folder then close it.
0 kommentar(er)
