Pictures in Outlook 2003

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
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
 
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.....
 
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,
 
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
 
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
 
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
 
Back
Top