發送EMAIL

https://dotblogs.com.tw/joysdw12/2010/10/28/18656

參考

blog.xuite.nemis166@hoyu.com.twt/tolarku/blog/34601274-Google+Gmail+%2B+ASP.NET+(VB)+寄信程式

後製裡面要 Imports System.Net.Mail 這個我想應該很清楚為什麼了~
Step 1  在Aspx頁中,看你心情,可以放入textbox,button.在此我們先假設我們要發送給textbox中輸入的mail,按下button就寄出
Step 2  在Button1的Click事件中做寄信的程式!我們將程式分段來看
 Protected Sub Send_button_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Send_button.Click
        Dim S_name As String = "Shinyo"       '定義寄信者名稱
        Dim S_email As String = "shinyo.her@gmail.com" '定義寄信者信箱
        Dim pro_msg As String
        Dim mail As New MailMessage()
        mail.To.Add(Textbox1.text)  '給收件者(textbox填入值)
        mail.From = New MailAddress(S_name & "<" & S_email & ">") '寄件者
        mail.IsBodyHtml = True '以Html方式發送
Step 3  設定信件內容(做一個TABLE進去會比較漂亮,也可以在Aspx中再多加入你想要給使用者填的內容
       mail.Subject =  "標題AA"        '主旨
        pro_msg = "
"

        pro_msg += "
您好：
有新的發問者在論壇上回覆您的留言！資料如下

"        pro_msg += "
"

        pro_msg += "
新回應
"
        pro_msg += "
填寫日期
"
        pro_msg += "
" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & "

"        pro_msg += "
內容
"
        pro_msg += "
" & Re.text & "

"        mail.Body = pro_msg '將資料塞進內容
Step 4  快結束了阿~就是透過SMTP寄送囉,一個網站內可能不只一支程式要寄信對吧?所以我建議不要把SMTP寫在程式裡,放在Web.config裡叫出來大家都可以用豈不歡樂 :) 在Web.config裡加入 :

 
   

Step 5  最後一步!把SMTP叫出來,然後...
Dim smtp As New SmtpClient(System.Configuration.ConfigurationManager.AppSettings("smtp"))
        smtp.Send(mail) '這就是寄信的動作了阿!!
’可以做個提醒
Response.Write("")
    End Sub