ASP Odesílání e-mailů pomocí CDOSYS
CDOSYS je vestavěná součást v ASP. Tato komponenta se používá k odesílání e-mailů pomocí ASP.
Odesílání e-mailů pomocí CDOSYS
CDO (Collaboration Data Objects) je technologie společnosti Microsoft, která je navržena tak, aby zjednodušila vytváření aplikací pro zasílání zpráv.
CDOSYS je vestavěná součást v ASP. Ukážeme vám, jak používat tuto komponentu k odesílání e-mailů pomocí ASP.
Co takhle CDONT?
Společnost Microsoft přestala používat CDONT v systémech Windows 2000, Windows XP a Windows 2003. Pokud jste ve svých aplikacích ASP používali CDONT, měli byste aktualizovat kód a používat novou technologii CDO.
Příklady pomocí CDOSYS
Odeslání textového e-mailu:
<%
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
%>
Odeslání textového e-mailu s poli Skrytá kopie a Kopie:
<%
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
%>
Odeslání HTML e-mailu:
<%
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
%>
Odeslání e-mailu HTML, který odešle webovou stránku z webu:
<%
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
%>
Odeslání e-mailu HTML, který odešle webovou stránku ze souboru ve vašem počítači:
<%
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
%>
Odeslání textového e-mailu s přílohou:
<%
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
%>
Odeslání textového e-mailu pomocí vzdáleného serveru:
<%
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
%>