Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Outlook / Contacts / March 2008

Tip: Looking for answers? Try searching our database.

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

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Ehudsdagger - 01 Feb 2005 21:39 GMT
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.
Sue Mosher [MVP-Outlook] - 01 Feb 2005 21:47 GMT
Outlook provides no way to do that.

Signature

Sue Mosher, Outlook MVP
Author of
    Microsoft Outlook Programming - Jumpstart for
    Administrators, Power Users, and Developers
    http://www.outlookcode.com/jumpstart.aspx

>I am hoping to be able to use the pictures of the contact I've added to
>some
[quoted text clipped - 3 lines]
> exported
> or merged.
Ehudsdagger - 01 Feb 2005 22:01 GMT
That is unfortunate, why create a database with an unusable field?  Hopefully
in the next version then.

Thank you for your quick reply.

> Outlook provides no way to do that.
>
[quoted text clipped - 5 lines]
> > exported
> > or merged.
Ehudsdagger - 01 Feb 2005 22:05 GMT
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.

> Outlook provides no way to do that.
>
[quoted text clipped - 5 lines]
> > exported
> > or merged.
Sue Mosher [MVP-Outlook] - 01 Feb 2005 22:59 GMT
The new contact form layout in OL2003 and the included picture control are
not available to programmers, who will see the older layout when they put an
Outlook 2003 contact form into design mode. One workaround is to use an
image control, as described at
http://www.outlookcode.com/d/formpicture.htm#control .

For other contact form idiosyncracies, see
http://www.outlookcode.com/d/contactform.htm

Signature

Sue Mosher, Outlook MVP
Author of
    Microsoft Outlook Programming - Jumpstart for
    Administrators, Power Users, and Developers
    http://www.outlookcode.com/jumpstart.aspx

> This may answer my question in a different way - when I try to customize
> the
[quoted text clipped - 5 lines]
> the
> photo "field" to their retro-form?
Chuck Staben - 29 Oct 2007 02:05 GMT
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

> The new contact form layout in OL2003 and the included picture control are
> not available to programmers, who will see the older layout when they put an
[quoted text clipped - 14 lines]
> > the
> > photo "field" to their retro-form?
Erin - 02 Nov 2007 07:15 GMT
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

"Chuck Staben" wrote: 10/28/2007

> 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
Erin - 02 Nov 2007 07:34 GMT
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

Signature

David Lee - MVP Outlook

Erin - 02 Nov 2007 07:34 GMT
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

Signature

David Lee - MVP Outlook

SSmith530@gmail.com - 07 Nov 2007 19:31 GMT
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
Paula - 04 Mar 2008 21:42 GMT
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.

> 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
[quoted text clipped - 5 lines]
>
> Hope this helps - Scott
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.