Send and receive emails using CDOSYS

Đoạn ASP này sẽ giúp bạn gửi và nhận E-mail bằng Microsoft's Collaboration Data Object.

<% Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.yourdomain.com" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "admin@yourdomain.com" .Item(cdoSendPassword) = "yourpassword" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "Your Email" .From = "Customer EMail" .Subject = "Thank you for your registration" .TextBody = "Hi, I hope you enjoy our service @ Thu Vien - IT " & Now() .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing %>

Lưu đoạn mã trên thành 1 file dạng .asp . Bạn sẽ phải thay đổi thông tin như: domain name server, địa chỉ E-mail và Password của bạn ở các dòng mã sau:
cdoSMTPServer ="mail.yourdomain.com".
cdoSendUserName = "admin@yourdomain.com"
cdoSendPassword = "yourpassword"

Thay vì gửi bằng textbody, bạn có thể viết nội dung E-mal như HTML và thay đổi dòng mã :

.TextBody to .HTMLBody

Nếu bạn muốn có nhiều hệ thống E-mail hơn trên Web của bạn thì bạn phải lưu phần này trong cùng một trang để đảm bảo nó không bị lỗi: Name redefined:

<% Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.yourdomain.com" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "admin@yourdomain.com" .Item(cdoSendPassword) = "yourpassword" .Update End With %>

Bây giờ, việc bạn phải làm tiếp theo là chép những đoạn mã vào file ASP:

<%
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "Your Email"
.From = "Customer EMail"
.Subject = "Thank you for your registration"
.TextBody = "Hi, I hope you enjoy our service @ " & Now()
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>

Submit Article :- Digg + Technorati + del.icio.us + Stumbleupon + Reddit + BlinkList + Furl + Yahoo+ Blogmarks + Ekstreme Socializer

|