參考
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