Inasababisha Barua ya CDOSYS kwa ASP

CDOSYS ni komponendi ya msingi wa ASP. Komponendi hii inatumiwa kusafirisha barua pepe kwa kutumia ASP.

Kusafirisha barua pepe kwa CDOSYS

CDO (Collaboration Data Objects) ni teknolojia ya Microsoft iliyotengwa kwa kusababisha uwezo wa kumaliza programu za uharibifu.

CDOSYS ni komponendi ya msingi wa ASP. Tunasikitambua kuhusu matumizi ya komponendi hii kwa kusafirisha barua pepe.

CDFONI kinaingia kama?

Microsoft imezika kwa Windows 2000, Windows XP na Windows 2003. Ikiwa inauzwa kwa CDONTs katika programu yako, inahitajika kusasisha kodeni kwa kutumia teknolojia ya CDO mpya.

Kutumia mifano wa CDOSYS

Kutuma barua:

<%
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
%>

Kutuma barua ya kitabia na Bcc na CC:

<%
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
%>

Kutuma barua ya kitabia:

<%
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
%>

Kutuma barua ya kitabia kutoka kwa tovuti:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.codew3c.com/asp/" 
myMail.Send
set myMail=nothing
%>

Kutuma barua ya kitabia kutoka kwa faili ya kompyuta:

<%
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
%>

Kutuma barua ya kitabia kwa mtaafiki na kusaidia mafikirio:

<%
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
%>

Kutuma barua ya kitabia kwa mtaafiki wa kushoto:

<%
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
IP au jina la mtaafiki wa SMTP ya kushoto
myMail.Configuration.Fields.Item _
(http://schemas.microsoft.com/cdo/configuration/smtpserver) _
="smtp.server.com"
mashoja wa porti ya mtaafiki
myMail.Configuration.Fields.Item _
(http://schemas.microsoft.com/cdo/configuration/smtpserverport) _
=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>