HUGE rich text item, how to handle in LS?

I have a survey application where the owner wants to be able to email out the survey to hundreds of thousands of email address in one batch.

As I start coding in LS I’m having multiple questions.

I’m grabbing the contexts of the rtitem via GetUnformattedText and doing a Split to get an array. So the general Array limits in LS are -32K to +32K for the index. So already going to hit that.

If someone enters in 100,000 addresses, is there even any way in LS to scroll through each individual address?

Assuming there is a way…

For sending the emails I’m going to have a profile doc store the max number of address that can be sent in each email. So if I set it to 10 and there are 100 names when the person clicks “Send Survey Email Invites” it will actually send 10 emails with 10 unique names in each.

Anyone know the max number of email address you can put in the “BCC:” mail field and have the email still send? Guessing that’s pretty server/environment specific.

Subject: Mid$ too slow?

Is there any way to speed this up?

plainText would be the String returned from the rtitem which is close to 1MB

Dim strSeparator As String

Dim mylist List As String

Dim i,firstIndex,secondIndex,maxlen As Long

i = 0

firstIndex = 1

strSeparator = Chr(13) + Chr(10)

secondIndex = Instr(plainText,strSeparator)

maxlen = len(plainText)

While secondIndex < maxlen and not secondIndex<=0

mylist(Cstr(i)) = Mid$(plainText,firstIndex, (secondIndex - firstIndex))

firstIndex = secondIndex + 2

secondIndex = Instr(firstIndex,plainText,strSeparator)

i = i + 1

Wend