E-MAIL
Viewing Mangled Mime Attachments
Gareth Harris
07.04.2000
Rating: --- (out of 5)
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.
Code
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
|
|
Rate this Tip
|
To rate tips, you must be a member of SearchDomino.com.
Register now
to start rating these tips. Log in if you are already a member.
|
DISCLAIMER: Our Tips Exchange is a forum for you to share technical advice and expertise with your peers and to learn from other enterprise IT professionals. TechTarget provides the infrastructure to facilitate this sharing of information. However, we cannot guarantee the accuracy or validity of the material submitted. You agree that your use of the Ask The Expert services and your reliance on any questions, answers, information or other materials received through this Web site is at your own risk.
|
|
|
|
|
|
|
