Manage Learn to apply best practices and optimize your operations.

Viewing Mangled Mime Attachments

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

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close