Hello,

I am creating a class where I have various properties.
I was able to set default values for most properties which have common types.

However, I am 3 properties which I don't know how to create the default value:

1. Mail.AttachmentCollection
    I want to make it empty. But I am not sure I can do this.

    Private _AttachmentCollection As Mail.AttachmentCollection
    <DefaultValue("")> _
    Public Property AttachmentCollection() As Mail.AttachmentCollection
    ...

2. Mail.MailAddressCollection
    I want to create the default collection with only one MailAddress.
    The one which is available in my Web.Config file under:
      <system.net>
        <mailSettings>
          <smtp
            deliveryMethod = "network"
            from = "atelier@jaquelineroxoatelier">
            ...
   
      Private _ToCollection As Mail.MailAddressCollection
      <DefaultValue("")> _
      Public Property ToCollection() As Mail.MailAddressCollection
      ...

3. Mail.MailAddressCollection
    I want this email colection to be empty. Similar to one. It is just a different collection type.

    Private _BccCollection As Mail.MailAddressCollection
    <DefaultValue("")> _
    Public Property BccCollection() As Mail.MailAddressCollection

4. Mail.MailAddress
    I want to create this MailAddress with the datain my Web.Config.
    Similar to 2. It is just a MailAddress instead of a Collection.

    ' From
    Private _From As Mail.MailAddress
    Public Property From() As Mail.MailAddress
    ...

Could someone help me out with this?

Thanks,
Miguel

You would have to set up your default values when you declare the fields, as follows: 

Imports Microsoft.VisualBasic

Imports System.Net.Mail

Public Class MailClass

Private _attachmentCollection As AttachmentCollection

Private _toCollection As MailAddressCollection = GetDefaultToCollection()

Private _bccCollection As MailAddressCollection

Private _from As MailAddress = New MailAddress(System.Configuration.ConfigurationManager.AppSettings("myFromAddress"))

Public Property AttachmentCollection() As AttachmentCollection

Get

Return _attachmentCollection

End Get

Set(ByVal value As AttachmentCollection)

_attachmentCollection = value

End Set

End Property

Public Property ToCollection() As MailAddressCollection

Get

Return _toCollection

End Get

Set(ByVal value As MailAddressCollection)

_toCollection = value

End Set

End Property

Public Property BccCollection() As MailAddressCollection

Get

Return _bccCollection

End Get

Set(ByVal value As MailAddressCollection)

_bccCollection = value

End Set

End Property

Public Property From() As MailAddress

Get

Return _from

End Get

Set(ByVal value As MailAddress)

_from = value

End Set

End Property

Private Function GetDefaultToCollection() As MailAddressCollection

Dim theCollection As New MailAddressCollection

theCollection.Add(System.Configuration.ConfigurationManager.AppSettings("myDefaultAddress"))

Return theCollection

End Function

End Class

---

==================================================
Don't forget to click "Mark as Answer" on the post that helped you.
This credits that member, earns you a point and marks your thread as Resolved so we all know you have been helped.