Vba 向AWS简单电子邮件服务添加地址时,对象引用未设置为对象的实例
例外情况: system.NullReferenceException 错误行:sendRequest.Destination.ToAddresss.Add(地址(0)) 代码: 发生了什么事,我该怎么解决 我不知道如何引用一个实例,虽然我已经有了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
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