Αποστολή Email με CDOSYS ASP

Το CDOSYS είναι ένα ενσωματωμένο στοιχείο του ASP. Αυτό το στοιχείο χρησιμοποιείται για να στείλετε ηλεκτρονικά μηνύματα μέσω του ASP.

Αποστολή ηλεκτρονικών μηνυμάτων με το CDOSYS

Το CDO (Collaboration Data Objects) είναι μια τεχνολογία της Microsoft που σχεδιάστηκε για να διευκολύνει τη δημιουργία προγραμμάτων επικοινωνίας.

Το CDOSYS είναι ένα ενσωματωμένο στοιχείο του ASP. Θα σας δείξουμε πώς να χρησιμοποιήσετε αυτό το στοιχείο για να στείλετε ηλεκτρονικά μηνύματα.

Πώς είναι τα CDONTs;

Η Microsoft έχει αποκτήσει τον CDONTs στα Windows 2000, Windows XP και Windows 2003. Αν εξακολουθείτε να χρησιμοποιείτε CDONTs στις εφαρμογές σας, θα πρέπει να ενημερώσετε τον κώδικα και να χρησιμοποιήσετε την νέα τεχνολογία CDO.

Χρήση του παραδείγματος του CDOSYS

Αποστολή email:

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

Αποστολή email με πεδία Bcc και 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
%>

Αποστολή HTML email:

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

Αποστολή email με HTML σελίδα από ιστοσελίδα:

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

Αποστολή email με HTML σελίδα από αρχείο στον υπολογιστή:

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

Αποστολή email με συνημμένο:

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

Αποστολή ενός κειμένου email μέσω απομακρυσμένου εξυπηρετητή:

<%
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 ή το όνομα του απομακρυσμένου SMTP εξυπηρετητή
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
%>