Παράδειγμα λειτουργίας για αποστολή email με CDO σε ASP

Έκανα αυτήν τη λειτουργία για να στέλνω συνεχώς μηνύματα ηλεκτρονικού ταχυδρομείου από τις φόρμες των σελίδων μου στο ASP, οπότε πρέπει να δημιουργήσω μόνο ένα αρχείο και να το συμπεριλάβω για να στέλνω email στο ASP.

Λειτουργία αποστολής αλληλογραφίας (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ΣΤΟ ΣΦΑΛΜΑ ΣΥΝΕΧΕΙΑ ΕΠΟΜΕΝΟ

 «Στείλτε ένα μήνυμα κειμένου χρησιμοποιώντας έλεγχο ταυτότητας σε διακομιστή SMTP

 Const cdoSendUsingPickup = 1 'Αποστολή μηνύματος χρησιμοποιώντας την υπηρεσία παραλαβής τοπικού καταλόγου SMTP
Const cdoSendUsingPort = 2 'Αποστολή χρησιμοποιώντας δίκτυο, SMTP μέσω δικτύου

 Const cdoAnonymous = 0 'Να μην γίνει έλεγχος ταυτότητας
 Const cdoBasic = 1 'Έλεγχος ταυτότητας βασικού (απλό κείμενο)
 Const cdoNTLM = 2 'NTLM

 Ορισμός objMessage = CreateObject ("CDO.Message")
 objMessage. Θέμα = ζήτημα
 objMessage. Από = f sendername & ""
 objMessage. Προς = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 ΕΑΝ Fadjoint <> "" THEN
 objMessage. Προσθήκη συνδέσμου fadjoint

 ΤΕΛΟΣ ΕΑΝ

 '== Ο διακομιστής SMTP έχει ρυθμιστεί εδώ.

 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 Όνομα ή IP του απομακρυσμένου διακομιστή SMTP
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

 «Τύπος ελέγχου ταυτότητας, ΚΑΝΕΝΑ, Βασικό (Base64 κωδικοποιημένο), NTLM
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

 «Το UserID σας στο διακομιστή SMTP
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/sendusername") =" ΧΡΗΣΤΗΣ "

 «Ο κωδικός πρόσβασής σας στον διακομιστή SMTP
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" Κωδικός πρόσβασης "

 Θύρα διακομιστή (συνήθως 25)
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 «Χρησιμοποιήστε SSL για τη σύνδεση (False or True)
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Λάθος

 'TIMEOUT σε δευτερόλεπτα, ο μέγιστος χρόνος που το CDO θα προσπαθήσει να δημιουργήσει σύνδεση με το SMTP
 objMessage. Διαμόρφωση. Πεδία. Στοιχείο _
 ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

 objMessage. Διαμόρφωση. Πεδία. Εκσυγχρονίζω

 '== Ολοκληρώστε τη διαμόρφωση SMTP ==

 objMessage. Στείλετε

 SendEmail = femailpara & ","

Λειτουργία τερματισμού
%>