Processing an attachment in a mail

Hello Korey,
it is possible.

But only for 300 points and an A+ :)

Cheers,
zvonko

Waoww! you're expensive man!! Let's do it 200 ;-)

Sorry,

I have no solution :)

(This is funny; let's do it like on a bazaar :)

Relay, the most difficult part is the link to a file on disk. Until now all my ideas where not successful...

And this surely does not depend on points :(

OK Korey,

I have found the code on net, but...

You think I am expensive? Let's do this way: you offer 300 points. Then if some buddies provide the solution to the question declared on top here I will add 300 points of mine if the provided solution do this requirements. If after one week no solution is here visible, then I get the points. Is a week to long for you?

Yes, it's a bit too long. I'll give 250 points ok? Can you give me until then at least how to open an explorer window to tell where to detach?

My name is Koray.

Yes, it's a bit too long. I'll give 250 points ok? Can you give me until then at least how to open an explorer window to tell where to detach?

My name is Koray.

Uhps :)

Of course, this is for free:
Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim session As New NotesSession
     Dim doc As NotesDocument
     Dim object As NotesEmbeddedObject
     Dim FileName As String    
     Set uidoc = ws.CurrentDocument
     Set doc = uidoc.Document
     Forall item In doc.Items
          If (item.Name = "$FILE") Then
               FileName = item.Values(0)
               Print "File: " & FileName
               Set object = doc.GetAttachment(FileName)
               Call object.ExtractFile("C:\tmp\" & FileName)
               Call object.Remove()
          End If
     End Forall
     Call doc.Save(True, False)
End Sub

Do not be confused by attachment icon. The icon is NOT removed; only the attachment behind the icon.

Good luck, Koray :)

I know how to detach a file but what i need to know is  how to open en explorer window to tell notes where to detach it.

Sorry,

this is the correct one:
Sub Click(Source As Button)
     Dim ws As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim session As New NotesSession
     Dim doc As NotesDocument
     Dim object As NotesEmbeddedObject
     Dim FileName As String    
     Dim dirpath As Variant
     Set uidoc = ws.CurrentDocument
     Set doc = uidoc.Document
     Forall item In doc.Items
          If (item.Name = "$FILE") Then
               FileName = item.Values(0)
               Print "File: " & FileName
               Set object = doc.GetAttachment(FileName)
               dirpath = ws.OpenFileDialog(False, FileName, "", "c:\temp", FileName)
               Call object.ExtractFile(dirpath(0))
               Call object.Remove()
          End If
     End Forall
     Call doc.Save(True, False)
End Sub

All the rest you need after this is then found here:
http://www-10.lotus.com/ldd/46dom.nsf/8fcda5a283f280b2852565590071d8af/5d38c180daab86fa85256ba700714e9c?OpenDocument

Good luck,
zvonko

Beggar !

LOL....

I wondered where your comment is :)

Have you seen? I passed the 100K line! (with grand total only :)

Hi, Zvonko, i went to the link but understand nothing about it, which language is it? Lotus Script??

I just need a pop up window in what i can choose where to detach the attachment.

250 points was a little bit expensive for :

dirpath = ws.OpenFileDialog(False, FileName, "", "c:\temp", FileName)

But i hope you'll tell me if you can find a solution to create a link to the file.

Koray.

Cheater...Beggar....I tell you something Zvo !  I will be the first one to get to 100k

:-)
Arun.

Hi Bro !  :-) Good going huh ?

Cheerio! I am already behind the 100000 line :) I got yesterday two biggies with 500 points each, but in JavaScript topic are.

Koray, of course you will get the resolution here when I resolve it for myself. Until now this LotusScript code from the linked page is producing only garbage. Main idea behind the code is to use Win32 send key functions to manipulate the Notes client menu dialog.

So long,
zvonko