?
Solved

Lotus Notes

Posted on 2010-01-05
7
Medium Priority
?
197 Views
Last Modified: 2013-12-18
I have tagged a few emails from my Inbox which I want to send to my home email.. But instead of having all these emails bunched into one..I want them to reach my home email as seperate ones..How do I do that ?
0
Comment
Question by:Bianchi928
  • 3
  • 3
7 Comments
 
LVL 19

Expert Comment

by:madheeswar
ID: 26187231
Option 1: Open each email and forward.
Option 2: Put all the emails in a separate folder and execute some code to forward all the emails to your home address.

Inorder to do #2, you need to have designer to write some code.

Pls let me know which option you are willing to do.
0
 

Author Comment

by:Bianchi928
ID: 26187243
Option 1 is pretty obvious...except when I have nearly 100 emails to do ).
Option 2 Sounds more like it ..but I need the code
0
 
LVL 19

Accepted Solution

by:
madheeswar earned 500 total points
ID: 26187666
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 46

Expert Comment

by:Sjef Bosman
ID: 26191996
Here's the code I use (sometimes):
Sub Initialize
	Dim ns As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim mailuidoc As NotesUIDocument
	Dim subject As String
	
	Set db= ns.CurrentDatabase
	Set dc= db.UnprocessedDocuments
	Set doc= dc.GetFirstDocument
	Do Until doc Is Nothing
		subject= doc.Subject(0)
		Set uidoc= ws.EditDocument(False,doc,True,"",True,True)
		Call uidoc.Forward
		Call uidoc.Close
		Set uidoc= Nothing
		Set mailuidoc= ws.CurrentDocument
		Call mailuidoc.FieldSetText("Subject", subject)
		Call mailuidoc.FieldSetText("SendTo", "alibaba@40thieves.com")
		Call mailuidoc.FieldSetText("EnterSendTo", "alibaba@40thieves.com")
		Call mailuidoc.Send
		Call mailuidoc.Close
		Set mailuidoc= Nothing
		Set doc= dc.GetNextDocument(doc)
	Loop
End Sub

Open in new window

0
 

Author Comment

by:Bianchi928
ID: 26195452
madheeswar:

I have created the Agent...I went in view agent and can see it..How do I test/run it ?

Thanks
Cheers
0
 
LVL 19

Expert Comment

by:madheeswar
ID: 26196341
From the actions menu, you can run the agent. Also, you can use Sjef's code as it also does the same.
Just set the agent to run on selected documents and run it from actions.
0
 

Author Closing Comment

by:Bianchi928
ID: 31673292
Awesome
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…
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…
Screencast - Getting to Know the Pipeline
With just a little bit of  SQL and VBA, many doors open to cool things like synchronize a list box to display data relevant to other information on a form.  If you have never written code or looked at an SQL statement before, no problem! ...  give i…
Suggested Courses
Course of the Month13 days, 16 hours left to enroll

807 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