將SMTP設定放入XML (Web.config) 上

   

   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