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

"Sue Mosher [MVP-Outlook]" wrote:

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

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


"Ehudsdagger" wrote in message
...
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?

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

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 " trtd width=""15%""bFull Name:/b/tdtd
width=""85%""" & .FullName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bLast Name:/b/tdtd
width=""85%""" & .LastName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bFirst
Name:/b/tdtd width=""85%""" & .FirstName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bCompany:/b/tdtd
width=""85%""" & .CompanyName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness
Address:/b/tdtd width=""85%""" & .BusinessAddress & "br" &
..BusinessAddressCity & ", " & .BusinessAddressState & " " &
..BusinessAddressPostalCode & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness:/b/tdtd
width=""85%""" & .BusinessTelephoneNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bMobile:/b/tdtd
width=""85%""" & .MobileTelephoneNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness
Fax:/b/tdtd width=""85%""" & .BusinessFaxNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bE-mail:/b/tdtd
width=""85%""" & .Email1Address & "/td/tr"
objFile.WriteLine " trtd width=""15%""bE-mail Display
As:/b/tdtd width=""85%""" & .Email1DisplayName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bWeb Page:/b/tdtd
width=""85%""" & .WebPage & "/td/tr"
If .HasPicture Then
If .Attachments.Count = 1 Then
..Attachments.Item(1).SaveAsFile PICTURE_PATH
objFile.WriteLine " trtd
width=""15%""bPictu/b/tdtd 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

--
David Lee - MVP Outlook

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 " trtd width=""15%""bFull Name:/b/tdtd
width=""85%""" & .FullName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bLast Name:/b/tdtd
width=""85%""" & .LastName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bFirst
Name:/b/tdtd width=""85%""" & .FirstName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bCompany:/b/tdtd
width=""85%""" & .CompanyName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness
Address:/b/tdtd width=""85%""" & .BusinessAddress & "br" &
..BusinessAddressCity & ", " & .BusinessAddressState & " " &
..BusinessAddressPostalCode & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness:/b/tdtd
width=""85%""" & .BusinessTelephoneNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bMobile:/b/tdtd
width=""85%""" & .MobileTelephoneNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bBusiness
Fax:/b/tdtd width=""85%""" & .BusinessFaxNumber & "/td/tr"
objFile.WriteLine " trtd width=""15%""bE-mail:/b/tdtd
width=""85%""" & .Email1Address & "/td/tr"
objFile.WriteLine " trtd width=""15%""bE-mail Display
As:/b/tdtd width=""85%""" & .Email1DisplayName & "/td/tr"
objFile.WriteLine " trtd width=""15%""bWeb Page:/b/tdtd
width=""85%""" & .WebPage & "/td/tr"
If .HasPicture Then
If .Attachments.Count = 1 Then
..Attachments.Item(1).SaveAsFile PICTURE_PATH
objFile.WriteLine " trtd
width=""15%""bPictu/b/tdtd 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

--
David Lee - MVP Outlook

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.

" wrote:

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

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.
--
Sincerely,
Melodie Turk
Keeper of the Page


" wrote:

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