Vb.net pošiljane pošte SMTP Amis

Pozdravljeni,
imam težavo pri pošiljanju elektronske pošte iz VB.net. Če pošiljam preko GMAILa mi normalno pošlje s spodnjo kodo. Pošiljanje preko amis naslova pa ne gre.
Port: 465
Strežnik: smtp.amis.net

Ima kdo kakšno idejo?

lp


Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New _
Net.NetworkCredential("primer8@gmail.com", "pass")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network
'SmtpServer.UseDefaultCredentials = True
mail = New MailMessage()
mail.From = New MailAddress("primer@gmail.si", "IME ZA PRIKAZ")
mail.To.Add("krneki@krneki.si")
mail.Subject = "Test Mail"
mail.Body = "This is for testing SMTP mail from GMAIL"
SmtpServer.Send(mail)
MsgBox("mail send")
Catch ex As Exception
MsgBox(ex.ToString)
End Try

Javi: "The operation has timed out."

Sem rešil zadevo:
Dim SmtpClient As SmtpClient = New SmtpClient()
Dim basicCredential As New NetworkCredential
basicCredential.UserName = "uportabniskoime"
basicCredential.Password = "geslo"
Dim MailMessage As New MailMessage()
Dim fromAddress As New MailAddress("krneki@amis.si")
SmtpClient.Host = "smtp.amis.net"
SmtpClient.EnableSsl = True
SmtpClient.UseDefaultCredentials = False
SmtpClient.Credentials = basicCredential
MailMessage.From = fromAddress
MailMessage.Subject = "your subject"
MailMessage.Body = "body"
MailMessage.To.Add("krneki@gmail.si")
Try
SmtpClient.Send(MailMessage)
Catch ex As Exception
MsgBox(ex.ToString)
End Try