How do I print the picture that I've added to the contact in Outl.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am hoping to be able to use the pictures of the contact I've added to some
forms or mail merges that I will create. I am unable to find "picture" or a
similar name in the last of contact fields so I assume it cannot be exported
or merged.
 
That is unfortunate, why create a database with an unusable field? Hopefully
in the next version then.

Thank you for your quick reply.
 
This may answer my question in a different way - when I try to customize the
form the picture option is removed and it replaced the form with a previous
version of the main contact from (a pre-2003 form).

Is there a way to customize the current form? Or is there a way to add the
photo "field" to their retro-form?

Thank you in advance for your help.
 
I understand that Outlook2007 pciture in contacts has changed, but I still
cannot seem to figure out how to print a contacts list with pictures from
outlook 2007-is there a method for this? Thanks
 
Ditto! While searching for a solution to print a company wide
division/group/section (si, all) contact list with photos/pictures I have hit
a road block, and Chuck and I seem to be asking the exact same question
almost at the same time. (You don't work for AT&T also do you? Wireless
Network here) Like Mr. Staben I need to print contacts with photos in a
quick and dirty format. Outlook has 99% of the ability, and a large number
of photos are already associated with the contact, however I can't seem to
complete the task. My manager is asking "What part of PRINT do you NOT
understand? Control + P DO IT NOW!" (Do I sound panic'd?)

Currently running OL2003 and 2007 on multiple machines, however no sucess on
either platform. Does anyone know;
1. if it 'IS' possible to print pictures with the contacts using OL2003/7?
2. If no, how are the pictures associated with the contact? Where I'm
going is...
3. Is it possible to export the contacts with the photo's 'or' export the
contacts with a number that associates the contact with the photo?
4. I'm HOPING that photos are stored in one of the outlook directories
separately using either the record number, contact name or other exportable
data to associate the contact with the photo.
5. is a question not really for this board; I'm thinking that 'FILEMAKER
PRO v.?) may have the ability to store pictures with the record. I have a
feeling that the pictures are not stored separately, and cannot be exported
in the standard sense. Does anyone know if FILEMAKER Pro or Perhaps even
Access can directly read an Outlook file to import all, essentially 'open' it
without an import. I don't have FMP at the moment to test w/, hoping to save
time if it is not possible.

Any clue, suggestion or ideas would be appreciated.

Thanks in advance for your help -- Erin

: 10/28/2007
 
Chuck: On the off chance that you haven't found this already, search for a
post from David Lee - MVP Outlook expert. He lists a script which will allow
you to print outlook contact pictures. I haven't tried it yet so can't vouch
for its workabilithy.

Another post suggested using screen snapshot as a last resort.
(ALT+PRTSCRN) If you're considering that solution know that MS OneNote has a
screen clipper that is very useful. -Erin

Text w/ the script info that David Lee posted:

D.Lee 8/16/2007 6:26 AM PST



I agree with Brian on their being no way to do this from Outlook itself,
but
we can accomplish this with a bit of scripting. The script below will print
the currrently selected contact to include a picture if present. This is
only a proof of concept. A production script would print all the relevant
fields rather than the small list of fields I am using here. It would also
check to see if there are multiple attachments and, if so, scan through them
to find the picture. This does work though. I've tested using Outlook 2003
and it worked beautifully. The advantage of doing it this way is that you
have full control over the resulting output. You can choose your fonts, add
graphics, lay it out any way you want to.

Sub PrintContact()
'Picture is named: ContactPicture.jpg
Const PICTURE_PATH = "C:\Temp\ContactPicture.jpg"
Const FILE_PATH = "C:\Temp\PrintContact.html"
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const READYSTATE_COMPLETE = 4
Dim olkContact As Outlook.ContactItem, _
olkProp As Outlook.ItemProperty, _
objFSO As Object, _
objFile As Object, _
objIE As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(FILE_PATH, True)
Set olkContact = Application.ActiveExplorer.Selection(1)
With olkContact
objFile.WriteLine Session.CurrentUser
objFile.WriteLine "<hr>"
objFile.WriteLine "<table>"
objFile.WriteLine " <tr><td width=""15%""><b>Full Name:</b></td><td
width=""85%"">" & .FullName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Last Name:</b></td><td
width=""85%"">" & .LastName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>First
Name:</b></td><td width=""85%"">" & .FirstName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Company:</b></td><td
width=""85%"">" & .CompanyName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business
Address:</b></td><td width=""85%"">" & .BusinessAddress & "<br>" &
..BusinessAddressCity & ", " & .BusinessAddressState & " " &
..BusinessAddressPostalCode & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business:</b></td><td
width=""85%"">" & .BusinessTelephoneNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Mobile:</b></td><td
width=""85%"">" & .MobileTelephoneNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business
Fax:</b></td><td width=""85%"">" & .BusinessFaxNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>E-mail:</b></td><td
width=""85%"">" & .Email1Address & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>E-mail Display
As:</b></td><td width=""85%"">" & .Email1DisplayName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Web Page:</b></td><td
width=""85%"">" & .WebPage & "</td></tr>"
If .HasPicture Then
If .Attachments.Count = 1 Then
..Attachments.Item(1).SaveAsFile PICTURE_PATH
objFile.WriteLine " <tr><td
width=""15%""><b>Picture:</b></td><td width=""85%""><img src=""" &
PICTURE_PATH & """</td></tr>"
End If
End If
objFile.WriteLine "</table>"
End With
objFile.Close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate2 "file:\\" & FILE_PATH
Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
Set objFile = Nothing
Set objFSO = Nothing
Set olkProp = Nothing
Set olkContact = Nothing
Set objIE = Nothing
End Sub
 
Chuck: On the off chance that you haven't found this already, search for a
post from David Lee - MVP Outlook expert. He lists a script which will allow
you to print outlook contact pictures. I haven't tried it yet so can't vouch
for its workabilithy.

Another post suggested using screen snapshot as a last resort.
(ALT+PRTSCRN) If you're considering that solution know that MS OneNote has a
screen clipper that is very useful. -Erin

Text w/ the script info that David Lee posted:

D.Lee 8/16/2007 6:26 AM PST



I agree with Brian on their being no way to do this from Outlook itself,
but
we can accomplish this with a bit of scripting. The script below will print
the currrently selected contact to include a picture if present. This is
only a proof of concept. A production script would print all the relevant
fields rather than the small list of fields I am using here. It would also
check to see if there are multiple attachments and, if so, scan through them
to find the picture. This does work though. I've tested using Outlook 2003
and it worked beautifully. The advantage of doing it this way is that you
have full control over the resulting output. You can choose your fonts, add
graphics, lay it out any way you want to.

Sub PrintContact()
'Picture is named: ContactPicture.jpg
Const PICTURE_PATH = "C:\Temp\ContactPicture.jpg"
Const FILE_PATH = "C:\Temp\PrintContact.html"
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const READYSTATE_COMPLETE = 4
Dim olkContact As Outlook.ContactItem, _
olkProp As Outlook.ItemProperty, _
objFSO As Object, _
objFile As Object, _
objIE As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(FILE_PATH, True)
Set olkContact = Application.ActiveExplorer.Selection(1)
With olkContact
objFile.WriteLine Session.CurrentUser
objFile.WriteLine "<hr>"
objFile.WriteLine "<table>"
objFile.WriteLine " <tr><td width=""15%""><b>Full Name:</b></td><td
width=""85%"">" & .FullName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Last Name:</b></td><td
width=""85%"">" & .LastName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>First
Name:</b></td><td width=""85%"">" & .FirstName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Company:</b></td><td
width=""85%"">" & .CompanyName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business
Address:</b></td><td width=""85%"">" & .BusinessAddress & "<br>" &
..BusinessAddressCity & ", " & .BusinessAddressState & " " &
..BusinessAddressPostalCode & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business:</b></td><td
width=""85%"">" & .BusinessTelephoneNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Mobile:</b></td><td
width=""85%"">" & .MobileTelephoneNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Business
Fax:</b></td><td width=""85%"">" & .BusinessFaxNumber & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>E-mail:</b></td><td
width=""85%"">" & .Email1Address & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>E-mail Display
As:</b></td><td width=""85%"">" & .Email1DisplayName & "</td></tr>"
objFile.WriteLine " <tr><td width=""15%""><b>Web Page:</b></td><td
width=""85%"">" & .WebPage & "</td></tr>"
If .HasPicture Then
If .Attachments.Count = 1 Then
..Attachments.Item(1).SaveAsFile PICTURE_PATH
objFile.WriteLine " <tr><td
width=""15%""><b>Picture:</b></td><td width=""85%""><img src=""" &
PICTURE_PATH & """</td></tr>"
End If
End If
objFile.WriteLine "</table>"
End With
objFile.Close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate2 "file:\\" & FILE_PATH
Do Until objIE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
Set objFile = Nothing
Set objFSO = Nothing
Set olkProp = Nothing
Set olkContact = Nothing
Set objIE = Nothing
End Sub
 
This is how I've done it. In Outlook 2007, view the contacts as
'Business Cards." Then select all of the contacts that you want to
print with photos. Then right click and select 'Send as Business
Card.' An email will open with all of the contacts. I then select
all of the business cards in the email and paste into Word 2007 so I
organize them the way I want to. If you don't need to do any
organizing, you might be able to print directly from the email.

Hope this helps - Scott
 
I have to print a similar company directory with photos already input by
employees in Outlook 2007. Did this work? I have had no luck with getting
it to print. I see there is a new Business Card Manager. Will that help me?
Or do I try the suggestion below (with or without the "script"??) Thank you.
 
Thank you so much! This worked beautifully. We print our church directory
every year and what a time saver, since we already have their contacts in
Outlook.
 
Back
Top