Hôm nay mình sẽ giới thiệu đến các bạn bộ source code để gởi mail trên môi trường hosting Windows có hỗ trợ ASP.
Đây là phương pháp gởi Email bằng cách sử dụng Component “CDOSYS” trong ASP dùng remote SMTP để gởi mail. Xin nói thêm CDO (Collaboration Data Objects) là kỹ thuật của Microsoft nhằm tạo những ứng dụng có thế gửi các message qua mạng..
Điểm hạn chế duy nhất của nó chính là phải các bạn phải xác thực SMTP ( mà điều này là yêu cầu bắt buộc của các nhà cung cấp hosting để hạn chế tối đa việc lợi dụng các công cụ gửi mail trên website để spam mail ).
Do đó các bạn cần phải chắc chắn tồn tại 1 account mail SMTP trên hosting để thực hiện cấu hình thành công (có thể vào quản trị host để tạo email này) .
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
<% Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.domain.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="youare@domain.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "someone@someone.net" ObjSendMail.Subject = "this is the subject" ObjSendMail.From = "youare@domain.com" ' we are sending a text email.. simply switch the comments around to send an html email instead 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody = "this is the body" ObjSendMail.Send Set ObjSendMail = Nothing %> |
Chúc các bạn thành công.
WEB FAQ > Email FAQ > Hỏi đáp Email
web faq | hỏi đáp web | hoi dap web | website faq | hỏi đáp website | hoi dap website | hướng dẫn sử dụng web | huong dan su dung web | huong dan web | hoi dap email
