Pictures in Outlook 2003

G

Guest

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
 
J

Jocelyn Fiorello [MVP - Outlook]

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.

--
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. ***


In
 
P

P_Lee

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.....
 
M

Michael

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

P_Lee said:
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.....
Click to expand...
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,
 
P

P_Lee

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
 
M

Michael

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 = "<FONT face=Arial size=3>Attachments from: <b>" _
& obj.Subject & "</b><br>"
vHTMLBody = vHTMLBody & vSubject
For Each Attachment In obj.Attachments
Attachment.SaveAsFile (vPath & Attachment.FileName)
vHTMLBody = vHTMLBody & Attachment.FileName & "</Font><br>" & _
"<IMG alt="""" hspace=0 src=""" & vPath & Attachment.FileName
& _
""" align=baseline border=0><br><br><br>"
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
 
P

P_Lee

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
version?

Thanks again.

Mike
Click to expand...

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 = "<FONT face=Arial size=3>Attachments from: <b>" _
& obj.Subject & "</b><br>"
vHTMLBody = vHTMLBody & vSubject
For Each Attachment In obj.Attachments
Attachment.SaveAsFile (vPath & Attachment.FileName)
vHTMLBody = vHTMLBody & Attachment.FileName & "</Font><br>" _
& "<IMG alt="""" hspace=0 src=""" & vPath & Attachment.FileName _
& """ align=baseline border=0><br><br><br>"
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Pictures in Outlook 2003 3
Viewing Pictures in the body of a message 2
How do I display pictures in Outlook? 2
Intermittently Pictures Won't Download in Outlook 2003 2
Pictures not appearing in e-mail messages 11
can't open blocked pictures in e-mail in Outlook 2007 5
Outlook 2003 : how to see attached pictures in preview pane like OE6 2
Embedded Pictures received from Others do not display in outlook. 8

Top