Lähetä sähköpostia ASP:n avulla CDOSYS:llä

CDOSYS on ASP:n sisäänrakennettu komponentti. Tämä komponentti käytetään sähköpostin lähettämiseen ASP:n kautta.

Lähetä sähköpostia CDOSYS:n avulla

CDO (Collaboration Data Objects) on Microsoftin teknologia, joka on suunniteltu yksinkertaistamaan viestintäohjelmien luomista.

CDOSYS on ASP:n sisäänrakennettu komponentti. Näytämme sinulle, miten voit käyttää tätä komponenttia sähköpostin lähettämiseen.

Miten CDONTs toimii?

Microsoft on poistanut CDONTs Windows 2000, Windows XP ja Windows 2003 -järjestelmistä. Jos käytät CDONTs:ia sovelluksessasi, sinun on päivitettävä koodi ja käytettävä uutta CDO-tekniikkaa.

Käytä CDOSYS-institaattoria

Lähetä sähköposti:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.TextBody="Tämä on viesti."
myMail.Send
set myMail=nothing
%>

Lähetä sähköposti, joka sisältää Bcc- ja Cc-kentät:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.Bcc="joku@somedomain.com"
myMail.Cc="joku2@somedomain.com"
myMail.TextBody="Tämä on viesti."
myMail.Send
set myMail=nothing
%>

Lähetä HTML-sähköposti:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.HTMLBody = "<h1>Tämä on viesti.</h1>" 
myMail.Send
set myMail=nothing
%>

Lähetä HTML-sähköposti, joka sisältää verkkosivun:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Lähetä HTML-sähköposti, joka sisältää tiedoston tietokoneesta:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm" 
myMail.Send
set myMail=nothing
%>

Lähetä sähköposti, joka sisältää liitteen:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.TextBody="Tämä on viesti."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

Lähetä tekstitiedostona oleva sähköposti etäpalvelimen kautta:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Lähetä sähköposti CDO:n avulla"
myMail.From="mymail@mydomain.com"
myMail.To="joku@somedomain.com"
myMail.TextBody="Tämä on viesti."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'etä SMTP-palvelimen IP-osoite tai nimi
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'palvelinportti
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>