电子邮件不能在主机上使用Gmail smtp发送

Question

我用这段代码来发送电子邮件。当我在LOCALHOST中测试这段代码时，它可以正常工作，但在host中，我得到这个错误:

发送邮件失败。few

我的代码是:

Dim MailMsg As New MailMessage(New Net.Mail.MailAddress("[e-mail]"), New Net.Mail.MailAddress("[e-mail]"))
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("[e-mail]")
    'To is a collection of  types
    MyMailMessage.To.Add("[e-mail]")
    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("[e-mail]", "PASSWD")
    SMTPServer.EnableSsl = True
    SMTPServer.Send(MyMailMessage)
    SMTPServer.Dispose()
    MyMailMessage.Dispose()