<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.yourdomain.com" 'ระบุชื่อของเมล์เซิร์ฟเวอร์ของท่านให้ถูกต้อง
Mail.From = "admin@yourdomain.com" ' ระบุอีเมล์ที่ต้องการใช้ส่ง
Mail.FromName = "John" ' ระบุชื่อผู้ส่ง
Mail.AddAddress "webmaster@yahoo.com", "Andrew
Johnson, Jr." 'ระบุอีเมล์และชื่อของผู้รับ ซึ่งชื่อผู้รับจะไม่มีก็ได
Mail.AddAddress "webmaster@hotmail" 'ระบุชื่อผู้รับอีกคนถ้ามี
Mail.AddAttachment
"d:\webhosts\yourdomain_com\webhosting/button_stats.gif"
'ระบุไฟล์แนบ ถ้ามี
Mail.Subject = "Thanks for ordering our hot cakes!" 'ระบุหัวเรื่องของอีเมล์
'ตัวอย่างถ้อยคำข้างล่างนี้ เป็นตัวอย่างของข้อความในอีเมล์
Mail.Body = "Dear Sir:" & Chr(13) & Chr(10) & _
"Thank you for your business."
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Write "Success"
End If
%>
|