prague12

使用google email的smtp轉信

參考自 :http://www.dotblogs.com.tw/yc421206/archive/2010/01/05/12803.aspx

jkFIXed: 改寫一下成函數 內文是字串 解讀時屬於html的解讀

測試成功可用於ASP網頁
//=====================
Imports System.Data
Imports System.Net

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 = "netxxxxxx"
Dim receiver_cred As New NetworkCredential("hcgprague@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