prague12

Dim selectN, address, name As String
Dim ordertime


Protected Sub Wizard1_FinishButtonClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) Handles Wizard1.FinishButtonClick
selectN = ListBox1.SelectedItem.Text.ToString
address = TextBox_address.Text
name = TextBox_name.Text
ordertime = Calendar1.TodaysDate.ToString

Dim optionN = ListBox1.SelectedIndex + 1 '訂購選項

Dim tt1 = "訂購數量 " + selectN + vbNewLine
Dim tt2 = "訂購人 " + name + vbNewLine
Dim tt3 = "送貨地址 " + address + vbNewLine
Dim tt4 = "訂貨時間" + ordertime + vbNewLine



Dim all_tt = tt2 + tt3 + tt1 + tt4
TextBox_sum.Text = all_tt


Dim k1, k2, k3, k4 As Integer
Dim money As Integer
Dim process_YN As String

k1 = optionN
k2 = 0
k3 = 0
k4 = 0
money = (k1 + k2 + k3 + k4) * 100
Dim money_str = money.ToString()

process_YN = "N"

Dim ww As New order_DataSet1TableAdapters.Table_OrderTableAdapter
' ww.Insert(ordertime.ToString, name.ToString, address.ToString, k1.ToString, k2.ToString, k3.ToString, k4.ToString, money.ToString, processYN.ToString)

' Dim aaqq As String = "RR" '測試寫入資料用
ww.Insert(ordertime, name, address, k1, k2, k3, k4, money_str, process_YN)


'Dim wwwqq As New order_DataSet1TableAdapters.jk_Table2TableAdapter 測試用
Dim result = To_email_message(TextBox_mail.Text, "這是通知 您訂購的內容是
" + all_tt, ordertime)
Response.Write(result)
End Sub





Public Function To_email_message(ByVal receiver_of_Email As String, ByVal contentBODY As String, ByVal time As String) As String
Try


Dim mailTo_address As String = TextBox_mail.Text
Dim mail As New Mail.MailMessage()
Dim pwd As String = "net111111"
Dim receiver_cred As New NetworkCredential("shcgprague@gmail.com", pwd)
' Dim receiverTest As String
'receiverTest = "hcgprague@hotmail.com," + "prague12.tw@yahoo.com.tw"
'收件者
mail.To.Add(receiver_of_Email)
'mail.Subject = "subject gmail_test "
mail.Subject = "有新訂購" + time

'寄件者
mail.From = New System.Net.Mail.MailAddress("fff@gmail.com")
mail.IsBodyHtml = True
mail.Body = "messageAAAA content 中文也要來一下 " + vbNewLine + contentBODY

'設定SMTP
Dim smtp As New Mail.SmtpClient("smtp.gmail.com")
smtp.UseDefaultCredentials = False
smtp.EnableSsl = True
smtp.Credentials = receiver_cred
smtp.Port = 587

'送出Mail
smtp.Send(mail)

Return ("send EMAIL OK")

Catch ex As Exception
Return ("send EMAIL FAIL")
End Try

End Function