Viewing Mangled Mime Attachments

By

• Gareth Harris

Published: 01 Nov 2000

This is a quick hit solution for viewing attachments, typically images, mangled
by Mime.

We have R4 clients unable to detach some images from Mime emails incorrectly
converted by R5. A solution, though less tha ideal, is to use this agent which
launches the offending email in a web browser window which always works. In the
browser window the user simply does "save as" or downloads the image like any
other web page.

I pasted it into mail files as people complained, rather than do a big roll out.

Cautionary Notes:
1. R5 can do this anyway! Use Actions->preview in web browser - you may still
want to use this if your mail server does not have HTTP turned on and point it
to a cluster instead like us.
2. You must change the location document to use Internet Explorer or Netscape
as the "Internet Browser" or it won't work correctly.
R4 Version:
Sub Initialize
Dim ws As New notesuiworkspace
Dim URL As String
Dim doccol As notesdocumentcollection
Dim db As notesdatabase
Dim s As New notessession
Dim doc As notesdocument

Set db = s.currentdatabase
Set doccol = db.unprocesseddocuments

If doccol.count > 0 Then 'could be a category selected...
URL = "http://servername/" & db.filepath & "/Threads/" &
doccol.getfirstdocument.UniversalID & "?opendocument"
Call ws.URLOpen(URL)
Else
Messagebox "You must select a document to view in your default web
browser!",, "Error"
End If
End Sub

R5 Version: (uses funky new classes)
Sub Initialize
Dim ws As New notesuiworkspace
Dim URL As String
Dim doccol As notesdocumentcollection
Dim db As notesdatabase
Dim s As New notessession
Dim doc As notesdocument

Set db = s.currentdatabase
Set doccol = db.unprocesseddocuments

If doccol.count > 0 Then 'could be a category selected...
URL = "http://servername/" & db.filepath & "/" & ws.currentview.view.name &
"/" & doccol.getfirstdocument.UniversalID & "?opendocument"
Call ws.URLOpen(URL)
Else
Messagebox "You must select a document to view in your default web
browser!",, "Error"
End If
End Sub

Dig Deeper on Domino Resources

LotusScript to create a dynamic tabular report from a Lotus Notes document collection A Lotus Notes tabular report is similar to copying a table from a view. Use this LotusScript from SearchDomino.com Hall of Famer Blessan Philip to create a tabular report dynamically from a Lotus Notes document collection.

Locate missing databases in a Lotus Domino cluster SearchDomino.com Hall of Famer Blessan Philip explains how to generate a report in Microsoft Excel of all databases that are not present on the Lotus Domino servers in a selected cluster.

Open documents in dialog box from a view How to open and edit documents in a dialog box from a view.

Scheduling DECS activity This tip describes how to schedule DECS activity.

Insert DocLinks live without closing and re-opening the document This tip describes how to insert DocLinks live without closing and re-opening the document.

Appending class methods This tip describes appending class methods using LotusScript.