Dim SmtpServer As New SmtpClient() Dim myMail As New System.Net.Mail.MailMessage() SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "xxxxxxx") SmtpServer.Port = 465 SmtpServer.Host = "smtp.gmail.com" SmtpServer.EnableSsl = True myMail.From = New System.Net.Mail.MailAddress("[email protected]") myMail.To.Add("[email protected]") myMail.Subject = "Account Username and Password" myMail.IsBodyHtml = True myMail.Body = "Username = " & dt.Rows(0)("Username").ToString & "" & _ "<br> Password = " & dt.Rows(0)("Password").ToString() SmtpServer.UseDefaultCredentials = True SmtpServer.Send(myMail) myMail = Nothing MsgBox("Your password has been send to mail (" & dt.Rows(0)("Email").ToString() & ")")
Imports System.Web.Mail Private Sub sendmail() Dim myMail As New MailMessage SmtpMail.SmtpServer = "smtp.gmail.com" myMail.From = "[email protected]" myMail.BodyFormat = MailFormat.Html myMail.To = "[email protected]" myMail.Cc = "[email protected]" myMail.Subject = "หัวข้อ" myMail.Body = "รายละเอียด" 'สำหรับแนบ file myMail.Attachments.Add(New MailAttachment(Mattach1)) 'สำหรับส่งเมล์ SmtpMail.Send(myMail) End Sub
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง