Lotus Notes

Posted on 2010-01-05
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 ?
Question by:Bianchi928
    LVL 19

    Expert Comment

    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.

    Author Comment

    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
    LVL 19

    Accepted Solution

    LVL 46

    Expert Comment

    by:Sjef Bosman
    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", "")
    		Call mailuidoc.FieldSetText("EnterSendTo", "")
    		Call mailuidoc.Send
    		Call mailuidoc.Close
    		Set mailuidoc= Nothing
    		Set doc= dc.GetNextDocument(doc)
    End Sub

    Open in new window


    Author Comment


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

    LVL 19

    Expert Comment

    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.

    Author Closing Comment


    Featured Post

    6 Surprising Benefits of Threat Intelligence

    All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

    Join & Write a Comment

    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.
    Migrating to Microsoft Office 365 is becoming increasingly popular for organizations both large and small. If you have made the leap to Microsoft’s cloud platform, you know that you will need to create a corporate email signature for your Office 365…
    Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

    745 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

    Need Help in Real-Time?

    Connect with top rated Experts

    18 Experts available now in Live!

    Get 1:1 Help Now