전송이 서버에 연결하지 못했습니다.

Question

거의 모든 것을 시도했지만 제대로 작동하지 않습니다. 나는 어떤 도움을 주셔서 감사합니다. 감사합니다.

Imports Microsoft.VisualBasic, System.Net.Mail 

    Shared Sub SendMailHTML(ByVal ToAdd, ByVal FromAdd, ByVal Message, ByVal Subject) 

    Dim mail As New MailMessage() 

    Dim SmtpServer As New SmtpClient() 
    SmtpServer.Host = "smtp.gmail.com" 
    SmtpServer.Credentials = New Net.NetworkCredential("xxxx@gmail.com", "xxxxxx") 
    SmtpServer.UseDefaultCredentials = False 
    SmtpServer.Port = 465 
    SmtpServer.EnableSsl = True 
    SmtpServer.Timeout = 5000 
    SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network 

    Try 
     mail.From = New MailAddress("xxxxx@gmail.com") 
     mail.To.Add("xxxxxx@gmail.com") 

     SmtpServer.Send(Mail) 
    Catch ex As Exception 
     MsgBox(ex.ToString()) 
    End Try 

End Sub 

Answer 1

Gmail의 경우 포트를 587로 변경할 수 있습니다. 또한

mail.Subject= ... 
    mail.Body= ... 

나는 당신으로 필요하면 작동 C#으로 내 코드를 추가 할 수 있습니다

SmtpServer.UseDefaultCredentials = False 
    SmtpServer.DeliveryMethod = SmtpDeliveryMethod.Network 

없이 실행도

시도 (여기에 적절한 문자열을 추가) try 블록에 추가 나도 몰라 VB