Vba 向AWS简单电子邮件服务添加地址时,对象引用未设置为对象的实例

Vba 向AWS简单电子邮件服务添加地址时,对象引用未设置为对象的实例,vba,amazon-web-services,nullreferenceexception,amazon-ses,Vba,Amazon Web Services,Nullreferenceexception,Amazon Ses,例外情况: system.NullReferenceException 错误行:sendRequest.Destination.ToAddresss.Add(地址(0)) 代码: 发生了什么事,我该怎么解决 我不知道如何引用一个实例,虽然我已经有了 Sub Test_SES(subject As String, source As String) Using client = New Amazon.SimpleEmail.AmazonSimpleEmailServiceClient(Am

例外情况:

system.NullReferenceException

错误行:sendRequest.Destination.ToAddresss.Add(地址(0))

代码:

发生了什么事,我该怎么解决

我不知道如何引用一个实例,虽然我已经有了

Sub Test_SES(subject As String, source As String)
    Using client = New Amazon.SimpleEmail.AmazonSimpleEmailServiceClient(Amazon.RegionEndpoint.EUWest1)
        Dim sendRequest As New Amazon.SimpleEmail.Model.SendEmailRequest With {.Source = source}
        Dim addresses As String() = address.Text.Split(Environment.NewLine)
        For i = 0 To addresses.Length - 1
            sendRequest.Destination.ToAddresses.Add(addresses(0))

        Next
        sendRequest.Message = New Amazon.SimpleEmail.Model.Message With
        {
            .Subject = New Amazon.SimpleEmail.Model.Content(subject),
            .Body = New Amazon.SimpleEmail.Model.Body() With
            {
            .Html = New Amazon.SimpleEmail.Model.Content() With
            {
            .Charset = "UTF-8",
            .Data = My.Resources.EmailHTML
            }
            }
        }
        Try
            Dim response = client.SendEmail(sendRequest)
        Catch ex As Exception
            FormConsole.Text = FormConsole.Text & Environment.NewLine & "[" & Date.Now.TimeOfDay.ToString & "]" & "Mail not sent" & ex.Message
        End Try
    End Using
End Sub