0

我正在使用下面的代码来生成一封电子邮件,它在本地开发中运行良好,但是当我在网络上尝试它时它不起作用?我是否需要做一些不同的事情,或者不能通过这种方式在网络上完成?

 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
4

1 回答 1

0

您是否使用网络凭据,例如 SMTP 服务器可能需要的那些?

smtp.Credentials = new NetworkCredential(USERNAME, PASSWORD);
于 2013-07-19T20:47:02.507 回答