使用VB代码发送电子邮件仅在本地有效，而不能从Web服务器发送

Question

I am using the code below to generate an email and it works fine locally in development but when I try it over the web it does not work? Do I need to do something different or can this not be accomplished over the web using it this way?

 Try


    Dim mailMessage As MailMessage = New MailMessage
    mailMessage.From = New MailAddress("Test@whatever.com")
    'mailMessage.Subject = txtSubject.Text.Trim
    'mailMessage.Body = txtBody.Text.Trim
    mailMessage.IsBodyHtml = True
        mailMessage.To.Add(New MailAddress("Test@whatever.com"))
    ' Dim files As List(Of HttpPostedFile) = CType(Session("Files"), List(Of HttpPostedFile))
    'For Each file As HttpPostedFile In files
    mailMessage.Attachments.Add(New Attachment("\\Server\test.pdf"))
    'Next

    Dim smtp As SmtpClient = New SmtpClient

    smtp.Host = "Mail.com"

        'smtp.EnableSsl = True

    Dim NetworkCred As System.Net.NetworkCredential = New System.Net.NetworkCredential
    smtp.UseDefaultCredentials = True
    smtp.Send(mailMessage)
    Catch ex As Exception

    End Try

Answer 1

您是否在使用网络凭据，例如SMTP服务器可能需要的凭据？

smtp.Credentials = new NetworkCredential(USERNAME, PASSWORD);