How to get Attachments inline

  • Thread starter Thread starter James Loehman
  • Start date Start date
J

James Loehman

My Windows ME Outlook allows me to see pictures(jpg)files
inline with text. My 2002 Outlook will not display
pictures inline. Is there anyway that I can get my 2002
Outlook to display the pictures when displaying text?
(I have to open and display each picture. On ME they are
displayed in the message.)
 
You're actually comparing Outlook 2002 and Outlook
Express (on your Windows ME machine). These are two
totally different products. Unfortuntly, Outlook 2002
does not currently include a feature to show picture
attachments inline as Outlook Express does.

Justin Swall
http://swallservices.com/support
 
Here's an Outlook macro I put together that provides a work-around by displaying
all the attachments from selected emails (you can select multiple messages) in
a new message. Image files will display properly - other attachments will not.

The macro copies attachments to 'c:\attachments_outlook' (creates the directory
if necessary). After displaying the attachments in a new message, it deletes
the files that were copied

When you're finished, just close the new message without saving. The only
drawback I see so far, is that Autosave (if enabled) will save a copy in
'Drafts' if the new message stays open past the set time limit.

For easy access, put a shortcut to the macro on your Outlook toolbar.


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

vSubject = "Attachments from: ---"
vHTMLBody = "<HTML>"

For Each obj In oSelection
vSubject = vSubject & """" & obj.Subject & """---"
For Each Attachment In obj.Attachments
Attachment.SaveAsFile (vPath & Attachment.FileName)
vHTMLBody = vHTMLBody & "<FONT face=Arial size=3>" & _
Attachment.FileName & "</Font><br>" & _
"<IMG alt="""" hspace=0 src=""" & vPath & Attachment.FileName & _
""" align=baseline border=0><br><br><br>"
Next
Next

Set objMsg = oOL.CreateItem(0)
With objMsg
.Subject = vSubject
.HTMLBody = vHTMLBody & "</HTML>"
.Display
DoEvents
End With

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