I posted this previously--but don't know if it actually posted. So I'm
trying again. Sorry if it IS a double post.

TIA
===================================
I have 3 classes:

mailBox, mailFilter & mailFilterSet

I then have an arraylist. Each element in the array is of type mailBox
(variable name is mbox). One item of the mailbox class is an arraylist
named filterSet. The intended purpose is for this arrayList to contain type
mailFilterSet elements. The mailFilterSet class contains a string (the name
of the filter set) and an arraylist--which is intened to contain mailFilter
elements.

'This works fine <= Create the mbox in array position 1.
dim i as integer = 0
mbox.Add(New mailbox())

'Then when I try to create the first element in the filter set array, it
fails and gives
'an unhandled exception of type 'system.NullReferenceException".
'Additional variable or With block variable not set.
mbox.(i).filterSet.add(new mailFilterSet)

The class definitions are below.

TIA

Public Class mailbox
Public mbox As String
Public acct As String
Public fromName As String
Public fromAddress As String
Public replyAddress As String
Public ReplyMessage As String
Public ReplyAttach As String
Public sender As String
Public forwardAddress As String
Public forwardMessage As String
Public forwardAttach As String
Public sendReply As Boolean = False
Public sendForward As Boolean = False
Public replyIncludeOriginal As Boolean = True
Public forwardIncludeOriginal As Boolean = True

'0 = As Attachment
'1 = In Brackets
'2 = Unchanged
Public replyIncludeOriginalMethod As Integer = 0

Public forwardIncludeOriginalMethod As Integer = 0
Public filterSet As ArrayList
End Class

Public Class mailFilterSet
Public filterName As String
Public filter As ArrayList
End Class

Public Class mailFilter
'andor:
'2 = n/a
'1 = And
'0 = Or
Public andor As Integer
'field:
'0 = To:
'1 = From:
'2 = Reply:
'3 = Subject
'4 = Message
Public field As Integer
'TYPE:
' 0 => = <= Equal
'1 => != <= Not Equal
'2 => *= <= Ends With
'3 => =* <= Begins With
'4 => *=* <= Contains
'5 => !*=* <= Doesn't Contain
Public type As Integer
Public content As String
End Class


--

RDI

(remove the exclamation from the email address)

Well I figured it out on my own. In the class definitions, I needed to have
"New ArrayList" instead of just ArrayList.

Thanks for looking.

--

RDI

(remove the exclamation from the email address)

"rdi" <rdi!@writeme.com> wrote in message
news:(E-Mail Removed)...
> I posted this previously--but don't know if it actually posted. So I'm
> trying again. Sorry if it IS a double post.
>
> TIA
> ===================================
> I have 3 classes:
>
> mailBox, mailFilter & mailFilterSet
>
> I then have an arraylist. Each element in the array is of type mailBox
> (variable name is mbox). One item of the mailbox class is an arraylist
> named filterSet. The intended purpose is for this arrayList to contain
type
> mailFilterSet elements. The mailFilterSet class contains a string (the
name
> of the filter set) and an arraylist--which is intened to contain
mailFilter
> elements.
>
> 'This works fine <= Create the mbox in array position 1.
> dim i as integer = 0
> mbox.Add(New mailbox())
>
> 'Then when I try to create the first element in the filter set array, it
> fails and gives
> 'an unhandled exception of type 'system.NullReferenceException".
> 'Additional variable or With block variable not set.
> mbox.(i).filterSet.add(new mailFilterSet)
>
> The class definitions are below.
>
> TIA
>
> Public Class mailbox
> Public mbox As String
> Public acct As String
> Public fromName As String
> Public fromAddress As String
> Public replyAddress As String
> Public ReplyMessage As String
> Public ReplyAttach As String
> Public sender As String
> Public forwardAddress As String
> Public forwardMessage As String
> Public forwardAttach As String
> Public sendReply As Boolean = False
> Public sendForward As Boolean = False
> Public replyIncludeOriginal As Boolean = True
> Public forwardIncludeOriginal As Boolean = True
>
> '0 = As Attachment
> '1 = In Brackets
> '2 = Unchanged
> Public replyIncludeOriginalMethod As Integer = 0
>
> Public forwardIncludeOriginalMethod As Integer = 0
> Public filterSet As ArrayList
> End Class
>
> Public Class mailFilterSet
> Public filterName As String
> Public filter As ArrayList
> End Class
>
> Public Class mailFilter
> 'andor:
> '2 = n/a
> '1 = And
> '0 = Or
> Public andor As Integer
> 'field:
> '0 = To:
> '1 = From:
> '2 = Reply:
> '3 = Subject
> '4 = Message
> Public field As Integer
> 'TYPE:
> ' 0 => = <= Equal
> '1 => != <= Not Equal
> '2 => *= <= Ends With
> '3 => =* <= Begins With
> '4 => *=* <= Contains
> '5 => !*=* <= Doesn't Contain
> Public type As Integer
> Public content As String
> End Class
>
>
> --
>
> RDI
>
> (remove the exclamation from the email address)
>
>