Lotus Notes

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 ?
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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.
Bianchi928Author Commented:
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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Learn SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

Sjef BosmanGroupware ConsultantCommented:
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)
End Sub

Open in new window

Bianchi928Author Commented:

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

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.
Bianchi928Author Commented:
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Lotus IBM

From novice to tech pro — start learning today.