Solved

Lotus Notes - Auto Saving an attachment from a certain sender

Posted on 2008-10-29
2
280 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 46

Accepted Solution

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

Assisted Solution

by:johnjardin
johnjardin earned 125 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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Lack of Storage capacity is a common problem that exists in every field of life. Here we are taking the case of Lotus Notes Emails, as we all know that we are totally depend on e-communication i.e. Emails. This article is fully dedicated to resolvin…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

696 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