Q
Problem solve Get help with specific problems with your technologies, process and projects.

How do I forward multiple e-mails to numerous people?

How do I forward multiple e-mails to a number of people? Should I select a number of e-mails and then forward each mail to each person in the To field?
There are several possible scenarios that fit your question:

Scenario 1: I have 10 e-mails, the contents of which I want to send to three people. It does NOT matter that the e-mails are combined into one larger e-mail.
Answer 1: Just select the documents in the view and choose Forward. The forward function within Notes will combine all of the selected documents into one e-mail (headers and all) and put it on the screen for you to populate the To field, etc. before sending.

Scenario 2: I have 10 e-mails, each of which I want to send to three people. It DOES matter that the e-mails are kept separate upon sending.
Answer 2: If you've got more than one document selected, it asks who you want to send it to (separated by commas). It then goes through each document in the selection, creates a mail document, applies the new Send To list, updates the subject and puts the entire original document inside the new document (just like Forward does). You can go with this (using prompts to get from the NAB the names, etc.) and add other support -- this is just bare-bones (written from memory), but should get you going.

Try the following:

Dim sess As New NotesSession
Dim ws As New NotesUIWorkspace
Dim maildb As NotesDatabase
Dim docs As NotesDocumentCollection
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Dim sSendTo As String

Set maildb = sess.CurrentDatabase
Set docs = db.UnprocessedDocs
If docs.Count > 0 Then
sSendTo = InputBox$("Send To:", "Send To:", "")
vSendTo = Evaluate("@Explode(""" & sSendTo & """; "","")")
Set doc = docs.GetFirstDocument()
While Not doc Is Nothing
Set newDoc = maildb.CreateDocument
Set newRT = newDoc.CreateRichTextItem("Body")
newDoc.Form = "Memo"
newDoc.Subject = "Re: " & doc.Subject(0)
Call doc.RenderToRTItem(newRT)
Call newDoc.Send(False, vSendTo)
Set doc = docs.GetNextDocument(doc)
Wend
End If

Scenario 3: I have one e-mail I'd like to blast out to possibly hundreds of recipients, and I may need to do it more than once.
Answer 3: Go to Notes.net and look in the Iris Sandbox for the "Shotgun Email" application.
This was last published in February 2003

Dig Deeper on LotusScript

Have a question for an expert?

Please add a title for your question

Get answers from a TechTarget expert on whatever's puzzling you.

You will be able to add details on the next page.

Join the conversation

2 comments

Send me notifications when other members comment.

Please create a username to comment.

Does scenario 2 can be use for this scenario:
I have 10 emails from the inbox of a mailin db which I need to forward to 3 people, each having difference emails forwarded in sequence..(recipient1 = email1, recipient2 = email2,,,,etc.)
Cancel
In Outlook, drag each of the emails into a new email, then send that to the recipients.

Gmail seems a tad more complex.  Add the URL link to each of the emails to your new email, then send it on. (At least that's the workaround I've been using.)

Don't use Notes so can't address it, but there must be some similar mechanism.
Cancel

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchExchange

SearchContentManagement

Close