Αποστολή Email με CDOSYS ASP
- Προηγούμενη Σελίδα ASP Global.asa
- Επόμενη Σελίδα ASP Response
Το 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 %>
- Προηγούμενη Σελίδα ASP Global.asa
- Επόμενη Σελίδα ASP Response