ایمیل (ASP e-mail)
در این بخش، «ارسال ایمیل در ASP» را یاد می گیریم. «CDOSYS» یک کامپوننت است؛ یعنی ابزار آماده برای کار خاص. با آن می توان ایمیل فرستاد، ساده و سریع؛ مثل فرستادن پیام در کلاس، اما برای وب.
ارسال ایمیل در ASP با CDOSYS
CDO یعنی Collaboration Data Objects. این فناوری ساخت پیام را ساده می کند. CDOSYS نسخه مناسب ASP است و ارسال ایمیل را انجام می دهد.
هشدار: CDONTS کنار گذاشته شده است. کد قدیمی را به CDO به روزرسانی کنید.
نمونه: متن ساده
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>
نمونه: با Cc و Bcc
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.Bcc = "someoneelse@somedomain.com"
myMail.Cc = "someoneelse2@somedomain.com"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>
نمونه: بدنه HTML
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail = nothing
%>
نمونه: ارسال صفحه وب به صورت MHTML
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.CreateMHTMLBody "https://www.w3schools.com/asp/"
myMail.Send
set myMail = nothing
%>
نمونه: MHTML از فایل محلی
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"
myMail.Send
set myMail = nothing
%>
نمونه: پیوست فایل
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail = nothing
%>
نمونه: استفاده از سرور SMTP راه دور
نکته: پورت و نام سرور را درست تنظیم کنید. همچنین به احراز هویت نیاز دارید، بسته به سرور.
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "mymail@mydomain.com"
myMail.To = "someone@somedomain.com"
myMail.TextBody = "This is a message."
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail = nothing
%>
گام های عملی
- موضوع، فرستنده، گیرنده را تنظیم کن.
- بدنه متن یا HTML را بنویس.
- در صورت نیاز پیوست اضافه کن.
- اگر رله خارجی داری، SMTP را پیکربندی کن.
- در پایان شیء را آزاد کن.
جمع بندی سریع
- CDOSYS برای ارسال ایمیل در ASP است.
- CDONTS دیگر پیشنهاد نمی شود.
- HTMLBody برای ایمیل های قالب دار است.
- برای SMTP راه دور، تنظیمات لازم است.
برای موضوعات مرتبط ببین: AJAX و Global.asa. همچنین ارسال ایمیل در ASP را نشانه گذاری کن.