ASP.NET 留言版 寄送Email (VB)

首先，建好一個留言版的表格，按下送出Button，將填寫內容寄發Email送到管理者信箱，告知是誰來留言了。

建立四個TextBox，分別代表 暱稱, email, 主題, 內容，最後在加上一個Button為送出，如下圖所示：



程式碼如下：

Imports System.Net.Mail
Partial Class contacts
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim strName As String = TextBox1.Text
 Dim strEmail As String = TextBox2.Text
 Dim strSub As String = TextBox3.Text
 Dim strBody As String = TextBox4.Text
       
        Dim eMail As New MailMessage()
        Dim mSender As New MailAddress(strEmail, strName)'strEmail=email帳號本身, strName=在email帳號上顯示的文字

        eMail.From = mSender'寄件者
        eMail.To.Add("abc@aaa.com")'收件者
        eMail.Subject = strSub'寄送email主旨
        eMail.Body = strBody'寄送email內容
        eMail.IsBodyHtml = True
        Dim smtp As New System.Net.Mail.SmtpClient()
        smtp.Host = "127.0.0.1"
        smtp.Port = 25
        smtp.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.PickupDirectoryFromIis
        smtp.Send(eMail)
    End Sub

回目錄
回首頁