Pictures in Outlook 2003

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Joao Marques - 11 Jan 2004 22:41 GMT

I cannot see the attached pictures with the e-mail people send to me, I always have to click on the one by one. Anyone knows how I can see them like Outlook Express? I am currently using Outlook 2003. Thank you,

João Marques

Reply to this Message

Jocelyn Fiorello [MVP - Outlook] - 12 Jan 2004 02:10 GMT

Outlook can only display images "inline" if the sender used HTML or Rich
Text format for the message and embedded the image into the body. If the
image was sent as an attachment, you will always receive it as an
attachment.

Signature

Jocelyn Fiorello
MVP - Outlook

*** Messages sent to my e-mail address will NOT be answered -- please
reply only to the newsgroup to preserve the message thread. ***

> I cannot see the attached pictures with the e-mail people send to me,
> I always have to click on the one by one. Anyone knows how I can see
> them like Outlook Express? I am currently using Outlook 2003. Thank
> you,
>
> Jo??o Marques

Reply to this Message

P_Lee - 12 Jan 2004 03:17 GMT

On Jan 9th, I posted a macro to this group in a message titled "Re: Pictures in
Outlook 2003" that will accomplish what you want .

I've posted it a few times lately, but haven't seen any feedback.

Try it out.....

>I cannot see the attached pictures with the e-mail people send to me, I always have to click on the one by one. Anyone knows how I can see them like Outlook Express? I am currently using Outlook 2003. Thank you,
>
>João Marques

Reply to this Message

Michael - 15 Jan 2004 17:31 GMT

P_Lee,

I tried your macro and it works great! I have been searching for a month
for a work around. I recently bought a PDA and made the decision to
integrate everything into Outlook 2003. I like it pretty well but my family
sends jpg's around like they are going out of style and it was such a pain
not to be able to view them in the body of the email I was about to switch
back to OE 6.

Between your macro and finding the "Attachment Security & Options) addin to
allow exe attachments I may stick with OE.

Thanks again

Mike

> On Jan 9th, I posted a macro to this group in a message titled "Re: Pictures in
> Outlook 2003" that will accomplish what you want .
[quoted text clipped - 4 lines]
>
> >I cannot see the attached pictures with the e-mail people send to me, I always have to click on the one by one. Anyone knows how I can see them like

Outlook Express? I am currently using Outlook 2003. Thank you,

> >Jo?o Marques

Reply to this Message

P_Lee - 15 Jan 2004 22:46 GMT

Be sure to get the latest update I posted yesterday, titled 'Outlook macro -
displays picture attachments inline (updated)'.

This one fixes the problem with not always deleting the copied attachments & the
problem with sometimes deleting the files before they were all displayed.

The new one pops up a browser window, instead of a new email message so you can
right-click & save pictures if you want.

Thanks for the feedback. I was beginning to wonder if anyone was even trying
it.

Patrick

>P_Lee,
>
[quoted text clipped - 25 lines]
>> >
>> >João Marques

Reply to this Message

Michael - 16 Jan 2004 15:53 GMT

This is the one I am using (I deleted all of the messages yesterday) It
seems to be fine and C:\Attachments_Outlook was empty. Is this the updated
version?

Thanks again.

Mike

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub view_attachments()
On Error Resume Next

Dim oOL As Outlook.Application
Dim oSelection As Outlook.Selection

Set oOL = New Outlook.Application
Set oSelection = oOL.ActiveExplorer.Selection
Set fs = CreateObject("Scripting.FileSystemObject")

vPath = "c:\Attachments_Outlook\"
If Not fs.FolderExists(vPath) Then fs.CreateFolder vPath

vHTMLBody = "<HTML><title>View Email Attachments</title>"

For Each obj In oSelection
vSubject = "Attachments from: " _
& obj.Subject & " "
vHTMLBody = vHTMLBody & vSubject
For Each Attachment In obj.Attachments
Attachment.SaveAsFile (vPath & Attachment.FileName)
vHTMLBody = vHTMLBody & Attachment.FileName & " " & _
"<IMG alt="""" hspace=0 src=""" & vPath & Attachment.FileName
& _
""" align=baseline border=0> "
Next
Next
vHTMLBody = vHTMLBody & "</html>"

Set ie = CreateObject("internetexplorer.application")
With ie
.toolbar = 0
.menubar = 0
.statusbar = 0
.Left = 100
.Top = 100
.Height = 480
.Width = 640
.navigate "about:blank"
.document.Open
.document.Write vHTMLBody
.document.Close
.Visible = True
End With

Do Until ie.readyState = 4: Sleep 10: Loop
Set ie = Nothing

For Each obj In oSelection
For Each Attachment In obj.Attachments
fs.DeleteFile (vPath & Attachment.FileName)
Next
Next

Set fs = Nothing
Set objMsg = Nothing
Set oSelection = Nothing
Set oOL = Nothing
End Sub

> Be sure to get the latest update I posted yesterday, titled 'Outlook macro -
> displays picture attachments inline (updated)'.
[quoted text clipped - 39 lines]
> >> >
> >> >Jo?o Marques

Reply to this Message

P_Lee - 16 Jan 2004 21:20 GMT

Yep, that's the latest.

For anyone else that tries it (below), note that the 'Public Declare....' line
must be placed at the very top before any other macros.

>This is the one I am using (I deleted all of the messages yesterday) It
>seems to be fine and C:\Attachments_Outlook was empty. Is this the updated
[quoted text clipped - 3 lines]
>
>Mike

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub view_attachments()
On Error Resume Next

Dim oOL As Outlook.Application
Dim oSelection As Outlook.Selection

Set oOL = New Outlook.Application
Set oSelection = oOL.ActiveExplorer.Selection
Set fs = CreateObject("Scripting.FileSystemObject")

vPath = "c:\Attachments_Outlook\"
If Not fs.FolderExists(vPath) Then fs.CreateFolder vPath

vHTMLBody = "<HTML><title>View Email Attachments</title>"

For Each obj In oSelection
vSubject = "Attachments from: " _
& obj.Subject & " "
vHTMLBody = vHTMLBody & vSubject
For Each Attachment In obj.Attachments
Attachment.SaveAsFile (vPath & Attachment.FileName)
vHTMLBody = vHTMLBody & Attachment.FileName & " " _
& "<IMG alt="""" hspace=0 src=""" & vPath & Attachment.FileName _
& """ align=baseline border=0> "
Next
Next
vHTMLBody = vHTMLBody & "</html>"

Set ie = CreateObject("internetexplorer.application")
With ie
.toolbar = 0
.menubar = 0
.statusbar = 0
.Left = 100
.Top = 100
.Height = 480
.Width = 640
.navigate "about:blank"
.document.Open
.document.Write vHTMLBody
.document.Close
.Visible = True
End With

Do Until ie.readyState = 4: Sleep 10: Loop
Set ie = Nothing

For Each obj In oSelection
For Each Attachment In obj.Attachments
fs.DeleteFile (vPath & Attachment.FileName)
Next
Next

Set fs = Nothing
Set objMsg = Nothing
Set oSelection = Nothing
Set oOL = Nothing
End Sub

>> Be sure to get the latest update I posted yesterday, titled 'Outlook
>macro -
[quoted text clipped - 49 lines]
>> >> >
>> >> >João Marques

Reply to this Message

Rony Aizik - 29 Jun 2005 15:59 GMT

Hi P_Lee

i"m using your macro and it's great.
BUT, after i"m using it, when i close outllok 2003
i"m getting "microsoft office outlook has encountered a problem and needs to
close. ..."
when i use outlook and not ussing you macro it's not happened.

do you now what could be the problem ?
(maybe it will happened with any macro ...)

thank you.
Rony Aizik

Reply to this Message