Web.Config 內容加上 |
<system.net> <mailSettings> <smtp deliveryMethod="Network"> <network defaultCredentials="false" host="SMTP Server Host" port="SMTP Port No." userName="SMTP User Account Login" password="SMTP User Account Password"/> </smtp> </mailSettings> </system.net> |
CodeBehind 內容 |
Imports System.Configuration Imports System.Net.Mail Sub Send_Mail() Dim config As Configuration = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration(HttpContext.Current.Request.ApplicationPath) Dim settings1 As System.Net.Configuration.MailSettingsSectionGroup = DirectCast(config.GetSectionGroup("system.net/mailSettings"), System.Net.Configuration.MailSettingsSectionGroup) 'Display Web.Config SMTP Setting Response.Write("SMTP Host: " + settings1.Smtp.Network.Host.ToString & "<br />") Response.Write("SMTP Port: " + settings1.Smtp.Network.Port.ToString & "<br />") Response.Write("SMTP User Account Login: " + settings1.Smtp.Network.UserName.ToString & "<br />") Response.Write("SMTP User Account Password: " + settings1.Smtp.Network.Password.ToString & "<br />") Dim SmtpServer As New SmtpClient() Dim mail As New MailMessage() 'Mail Address From mail.From = New MailAddress("Source Mail Address") 'Mail Address To mail.To.Add("Destination Mail Address") 'Mail Subject Mail.Subject = " Mail Subject " 'Mail Content Mail.Body = " Mail Content " 'Mail Sent SmtpServer.Send(mail) End Sub |