Imports System.Net.Mail
Partial Class Mail
Inherits System.Web.UI.Page
Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e
As System.Web.UI.ImageClickEventArgs) Handles MailSend.Click
Dim GMailmessage As New MailMessage(Me.MailFrom.Text, Me.MailTo.Text) '新建邮件
GMailmessage.Subject = Me.MailSubject.Text '标题
GMailmessage.Priority = MailPriority.High '邮件优先级
GMailmessage.IsBodyHtml = True
GMailmessage.Body = Me.MailContext.Text
GMailmessage.BodyEncoding = System.Text.Encoding.Default
GMailmessage.Attachments.Add(New Attachment(MailAttachment.PostedFile.InputStream, MailAttachment.FileName))
Dim emailparts() As String
Dim user As String
Dim provider As String
emailparts = Me.MailFrom.Text.Split("@".ToCharArray, 2) '分离邮件得出邮件名和stmp服务器名称
user = emailparts(0)
provider = emailparts(1)
Dim emailClient As New SmtpClient("smtp." + provider)
emailClient.Port = 25
emailClient.DeliveryMethod = SmtpDeliveryMethod.Network
emailClient.Timeout = 100000
emailClient.Credentials = New System.Net.NetworkCredential(Me.MailFrom.Text, Me.PassWord.Text)
' If Me.CheckBox1.Checked = True Then '看是否采用ssl128位安全链接加密
' emailClient.EnableSsl = True
' End If
Try
emailClient.Send(GMailmessage)
Response.Write("<script>alert('发信成功，请等待经理回复！')</script>")
Catch ex As Exception
Response.Write("<script>alert('错误信息如下:" + ex.Message + "!')</script>")
End Try
End Sub
End Class