호스트에서 Gmail smtp를 사용하여 이메일을 보내지 못했습니다.

Question

이메일을 전송할 때이 코드를 사용했습니다. 내가 LOCALHOST에서이 코드를 테스트 할 때 제대로 작동하지만 호스트에서,이 오류가 얻을 :

Failure sending mail.few

내 코드는 다음과 같습니다

Dim MailMsg As New MailMessage(New Net.Mail.MailAddress("MYUSERNAME@gmail.com"), New Net.Mail.MailAddress("myname@gmail.com")) 
MailMsg.Subject = "test" 
MailMsg.Body = "test" 
MailMsg.IsBodyHtml = True 
Dim SmtpMail As New Net.Mail.SmtpClient 
Dim SMTPUserInfo As New Net.NetworkCredential() 
SMTPUserInfo.UserName = "MYUSERNAME" 
SMTPUserInfo.Password = "MYPASSWORD" 
SmtpMail.UseDefaultCredentials = False 
SmtpMail.Credentials = SMTPUserInfo 
SmtpMail.Host = "smtp.gmail.com" 
SmtpMail.Port = 587 
SmtpMail.EnableSsl = True 
SmtpMail.Send(MailMsg) 

Answer 1

'Start by creating a mail message object 
    Dim MyMailMessage As New MailMessage() 

    'From requires an instance of the MailAddress type 
    MyMailMessage.From = New MailAddress("USERNAME@gmail.com") 

    'To is a collection of types 
    MyMailMessage.To.Add("DESTINATION@EXAMPLE.COM") 

    MyMailMessage.Subject = "XXXXXXX" & x 
    MyMailMessage.Body = "XXXXXXXXXXXXXXXXXXX " 

    Dim attach As New Attachment(fileName) 

    MyMailMessage.Attachments.Add(attach) 

    'Create the SMTPClient object and specify the SMTP GMail server 
    Dim SMTPServer As New SmtpClient("smtp.gmail.com") 
    SMTPServer.Port = 587 
    SMTPServer.Credentials = New System.Net.NetworkCredential("USERNAME@gmail.com", "PASSWD") 
    SMTPServer.EnableSsl = True 
    SMTPServer.Send(MyMailMessage) 

    SMTPServer.Dispose() 

    MyMailMessage.Dispose()