![]() ![]() Set objFileSystem = CreateObject("Scripting.FileSystemObject") StrBusinessCard = objContact.Fullname & ".jpg" 'Save the business card picture to Temp folder Set objContact = objContacts.Find(" = '" & strContactName & "'") StrContactName = InputBox("Enter the full name of the specific Outlook contact:") Set objContacts = (olFolderContacts).Items Set objOutlookApp = CreateObject("Outlook.Application") After that, open a new module and copy the following VBA codes into it. ![]()
0 Comments
Leave a Reply. |