Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Lotus Notes - Auto Saving an attachment from a certain sender

Posted on 2008-10-29
2
Medium Priority
?
282 Views
Last Modified: 2013-12-18
Hi !

is there a way to create a rule / script which will autosave an attachement (csv file) i get from a certain sender?

i dont mind using 3rd party applications

thanks :)
0
Comment
Question by:m0tek
2 Comments
 
LVL 46

Accepted Solution

by:
Sjef Bosman earned 500 total points
ID: 22830311
0
 
LVL 1

Assisted Solution

by:johnjardin
johnjardin earned 500 total points
ID: 22832474
Create an Agent that runs on selected documents and paste the below code inside the agent.

You can run this from an action menu, or from a button.

You will notice the code is simple enough to change in order to run it on different triggers, ( e.g. automatically when new mail arrives ).

Hope this helps
Sub Initialize
	' CONSTANTS
	Const FILE_PATH = "D:\My Images\"
	
	' VARIABLES
	Dim ss As New NotesSession
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument
	
	Dim myitem As Variant
	Dim index As Integer
	
	' CODE
	Set db = ss.CurrentDatabase
	Set col = db.UnprocessedDocuments
	Set doc = col.GetFirstDocument
	
	index = 0 
	
	While Not( doc Is Nothing )
		Set myitem = doc.GetFirstItem( "Body" )
		
		If ( myitem.Type = RICHTEXT ) Then
			Forall v In myitem.EmbeddedObjects
				index = index + 1
				Call v.ExtractFile( FILE_PATH & v.Name )
				
			End Forall
		End If
		
		Set doc = col.GetNextDocument( doc )
		
	Wend
	
End Sub

Open in new window

0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
Sometimes clients can lose connectivity with the Lotus Notes Domino Server, but there's not always an obvious answer as to why it happens.   Read this article to follow one of the first experiences I had with Lotus Notes on a client's machine, my…
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…

569 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question