The path to the photos is long.Are you using Outlook, Thunderbird, or another email client? Are you not happy with it? If you said yes to these two questions, it's time to make the switch to eM Client.ĮM Client is a powerful email client that makes managing your emails, contacts, calendar, and chat easy. ' replace “D:\Hybrid Clark\Standard Documents\Hybrid Data\Hybrid - Icons\Outlook” ' use m圜ontact.Categories & ".jpg” formatĢ. StrPhoto = “D:\Hybrid Clark\Standard Documents\Hybrid Data\Hybrid - Icons\Outlook” & m圜ontact.Categories & “.jpg”ġ. ' use m圜ontact.Categories & ".jpg” format Hi Can you please check what I have done, I cant seem to get running: (File, Options, Trust center in Outlook 2010, Tools, Trust center in Outlook 2007.) Go to the Trust center and make macros are configured to notify. ' use for testing only, to confirm the path is correct. ' replace "C:\photos\" with the correct path. ' use m圜ontact.LastNameAndFirstName = "last, first.jpg" format Set fs = CreateObject("Scripting.FileSystemObject")
' to use the selected folder use this line instead: Set m圜ontacts = myNamespace.GetDefaultFolder(olFolderContacts).Items Set myNamespace = myOlApp.GetNamespace("MAPI") Set myOlApp = CreateObject("Outlook.Application") StrPhoto = "C:\photos\" & m圜ontact.LastName & m圜ontact.FirstName & ".jpg" VBA code sample If the names are lastfirst without a space (poremskydiane.jpg), use StrPhoto = "C:\photos\" & m圜ontact.LastName & " " & m圜ontact.FirstName & ".jpg" For example, if the file name is last first with no comma and a space (Poremsky Diane.jpg) use You can make up your own formats using Outlook fields.
M圜ontact.LastNameAndFirstName results in "last, first.jpg" format, or "poremsky, diane.jpg" M圜ontact.FullName for "first last.jpg" name format, ie "diane poremsky.jpg" M圜ontact.FileAs uses the file as format on each contact StrPhoto = "C:\photos\" & m圜ontact.FullName & ".jpg" You can use the full name, "last, first" or FileAs format for the image name by changing the following line in the code (don't forget to change the file path and file extension if needed.): (Contact pictures are from Portrait Illustration Maker) The screenshots below are before and after shots of the business card view. If no picture exists, the contact is skipped. If the contact has a picture assigned and one exists in the folder, it will be replaced.
0 kommentar(er)
