GỞI MAIL (SEND MAIL) - Bài tập 2 - Phần 20 

Trong phần này chúng ta sẽ học các vấn đề sau....

• Gởi mail (Sending email) trực tiếp đến máy chủ của bạn sử dụng ASP và CDONTS (Collaboration Data Objects for NT Server)

• Gởi mail từ máy chủ của bạn và cập nhật database vào cùng một thời gian.

• Sử dụng thành phần có sẳn của ASP (Ad Rotator Component) để tạo Banner quảng cáo động .

• Sử dụng Content Rotator Component để hiển thị chú thích từ một tập tin văn bản.

Chú ý:

Bạn không thể kiểm tra tiến trình gởi mail trực tiếp trên PWS!

CDOmail sử dụng SMTP (Simple Mail Transfer Protocol) để gởi mail từ máy chủ. Đây là một thành phần chuẩn của Microsoft Internet Information Server (IIS).

Ở đây có một vài điều cần chú ý mà bạn nên kiểm tra với máy chủ của bạn trước khi bạn cố gắng sử dụng CDOmail.

• Máy chủ của bạn có cung cấp CDONTS ? Một vài hãng thứ ba sử dụng ASP mailers chẳng hạn như JMAIL, ASPmail hoặc Abmailer. Thật may mắn là tất cả đều tương tự nhau.

• Bạn phải kiểm tra xem SMTP đã có cài đặt trên máy chủ hay chưa ?. Nếu không bạn không thể giởi mail tới bất kỳ nơi đâu!

Nếu bạn gặp một báo lỗi như sau:

Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'CDONTS.NewMail'

Nếu bạn đang sử dụng PWS như là một máy chủ cục bộ thì bạn sẽ không kiểm tra được phần tạo Banner AD. Bạn sẽ gặp một báo lỗi như sau:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/content.asp, line 5

800401f3

Nếu bạn sử dụng IIS thì bạn có thể kiểm tra được Banner AD.

1/ Tạo 4 tập tin ASP trống và đặt tên như sau:

10/ Trong hộp thuộc tính cấu hình như sau:

File->Save. Nhấn F12 kiểm tra thử kết quả của bạn

CDONTS.NEWMAIL là một đối tượng của IIS dùng để gởi mail.Trong phần này chúng ta sẽ học các cú pháp khi sử dụng đối tượng CDONTS.NEWMAIL .

Dreamweaver MX 2004 không tự tạo được code gởi mail sử dụng CDONTS , do đó muốn làm được điều này bạn phải viết script bằng tay mà thôi.

Đây là một số ví dụ sử dụng CDONTS mailing script ....

Example 1: test1.asp

<% @language="VBSCRIPT" %>

<%

Dim myMail

Set myMail = Server.CreateObject ("CDONTS.NewMail")

myMail.From = "bktrung@vietchuyen.org"

myMail.To = "trinh@vietchuyen.org"

myMail.Subject = "My first CDONTS email"

myMail.Body = "This is a test email message" & vbcrlf & "sent with CDONTS"

myMail.Send

set myMail=nothing

Sau này bạn có thể sử dụng thêm

myMail.Cc = "tan@yahoo.com"    // Đồng gởi

myMail.Bcc = "htv@hotmail.com"  // Gởi ẩn

TIẾN TRÌNH GỞI MAIL TRONG TRANG

contact_post1.asp

Đoạn Code trong trang test1.asp là một cách để kiểm tra xem máy chủ của bạn có hổ trợ sử dụng đối tượng CDONTS hay không. Tuy nhiên trong thực tế thông tin sẽ được điền vào Form từ người dùng Web trong trang "contact_form.asp" và chuyển thông tin này qua trang "contact_post1.asp" . Điều gì sẽ xảy ra :

OK, bây giờ chúng ta sẽ viết code cho trang contact_post1.asp .

<% @language="VBSCRIPT" %>

<%

Dim myMail, myBody

myBody ="Name: "& request.form("name") & vbcrlf & "E-Mail: " & request.form("email") & vbcrlf & "Message: "& vbcrlf & request.form ("message")

Set myMail = Server.CreateObject ("CDONTS.NewMail")

myMail.From = request.form("email")

myMail.To = "trinh@vietchuyen.org"

myMail.Subject = "Customer Contact"

myMail.Body = myBody

myMail.Send

set myMail=nothing

Response.Redirect("contact_thanks.asp")

%>

13 / Mở trang contact_thanks.asp thiết kế giao diện như sau: