Αποστολή e-mail από φόρμες επικοινωνίας με SMTP authentication - CDOSYS ASP
| Προβολές: 2593 Τελευταία ενημέρωση: 04/09/2017 12:40 | 0 Βαθμολογία/ Χρήστες |
 |
Για να στείλετε email από την φόρμα επικοινωνίας ή παραγγελίας του ASP website σας, τότε θα πρέπει να χρησιμοποιήσετε τη μέθοδο του SMTP Authentication.
Έτσι ο server μας θα επαληθεύσει ότι η φόρμα σας έχει το δικαίωμα να στείλει email διαμέσω του server και θα της επιτρέψει την αποστολή του email στον/στους παραλήπτη/τες που θα ορίσετε.
Aυτό μπορείτε να το πετύχετε με το CDO που είναι ένα component ενσωματωμένο στην ASP και χρησιμοποιείται για την αποστολή email.
Απλά εισάγετε τον παρακάτω κώδικα σε ένα αρχείο mail.asp και αλλάξτε τις ρυθμίσεις έτσι ώστε να συμφωνούν με τις ρυθμίσεις του Server σας.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
<% set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.domain.tld" Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 ' ' Passing SMTP authentication Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="auth_user@domain.tld" Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="***********" Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Flds.update Set objMessage.Configuration = objConfig objMessage.BodyPart.Charset = "utf-8" objMessage.To = "receiver@domain.tld" objMessage.From = "sender@domain.tld" objMessage.Subject = "This is a test Email" objMessage.fields.update objMessage.HTMLBody = "This is a test sent from CDO using smtp authentication." objMessage.Send %> |
Έτσι λοιπόν γίνεται το SMTP Authentication μέσα από σελίδες ASP.
