Hello,

I am trying to send an email through EASendMail but receive 501 5.5.4 Invalid Address error.
here is my code.
Dim mailAdresses As String = "mymail@company.com"
Dim recipients As AddressCollection = New AddressCollection()
recipients.AddRange(New AddressCollection(mailAdresses))

Dim address As EASendMail.MailAddress = TryCast(recipients(0), EASendMail.MailAddress)
mail.[To].Add(address)

I try also this.
Dim mailAdresses As String = "mymail@company.com"
mail.To = New AddressCollection(mailAdresses)

Nothing helps.
Anyone has any idea?

Thanks.

I found out what caused the problem and it was the server.
Here is my code.

Dim mailServer As String = "X.X.X.X" '(IP Address)
Dim smtp As SmtpClient = New SmtpClient()
Dim server As SmtpServer = New SmtpServer(mailServer, 25)

server.UseDefaultCredentials = True
server.ConnectType = SmtpConnectType.ConnectTryTLS
smtp.Connect(server)

and if i delete ConnectType section the error turns to "The requested name is valid, but no data of the requested type was found"

Really annoying.