एएसपी सीडीओएसवाईएस के साथ ई-मेल भेज रहा है
CDOSYS ASP में एक अंतर्निर्मित घटक है। इस घटक का उपयोग एएसपी के साथ ई-मेल भेजने के लिए किया जाता है।
सीडीओएसवाईएस के साथ ई-मेल भेजना
सीडीओ (सहयोग डेटा ऑब्जेक्ट) एक Microsoft तकनीक है जिसे मैसेजिंग एप्लिकेशन के निर्माण को सरल बनाने के लिए डिज़ाइन किया गया है।
CDOSYS ASP में एक अंतर्निर्मित घटक है। हम आपको दिखाएंगे कि एएसपी के साथ ई-मेल भेजने के लिए इस घटक का उपयोग कैसे करें।
सीडीओएनटी के बारे में कैसे?
माइक्रोसॉफ्ट ने विंडोज 2000, विंडोज एक्सपी और विंडोज 2003 पर सीडीओएनटी का इस्तेमाल बंद कर दिया है। अगर आपने अपने एएसपी अनुप्रयोगों में सीडीओएनटी का इस्तेमाल किया है, तो आपको कोड को अपडेट करना चाहिए और नई सीडीओ तकनीक का इस्तेमाल करना चाहिए।
CDOSYS का उपयोग करने वाले उदाहरण
एक पाठ ई-मेल भेजना:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Send
set myMail = nothing
%>
गुप्त प्रतिलिपि और प्रतिलिपि फ़ील्ड के साथ एक पाठ ई-मेल भेजना:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.Bcc = "[email protected]"
myMail.Cc = "[email protected]"
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 = "[email protected]"
myMail.To = "[email protected]"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail = nothing
%>
एक HTML ई-मेल भेजना जो एक वेबसाइट से एक वेबपेज भेजता है:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To ="[email protected]"
myMail.CreateMHTMLBody "https://www.w3schools.com/asp/"
myMail.Send
set myMail = nothing
%>
एक HTML ई-मेल भेजना जो आपके कंप्यूटर पर एक फ़ाइल से एक वेबपेज भेजता है:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
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 = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail = nothing
%>
रिमोट सर्वर का उपयोग करके टेक्स्ट ई-मेल भेजना:
<%
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "Sending email with CDO"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send
set myMail = nothing
%>