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