| SENDING EMAIL FROM YOUR ASP PAGES |
|
|
To send email from your ASP pages, use the following code.
|
|
|
<% Const cdoBasic = 1 'Use basic (clear-text) authentication. Const cdoSendUsingPort = 2 'cdosys related Dim iMsg Dim iConf Dim Flds 'mail related Dim strMsg Dim strTo Dim strCC Dim strFrom Dim strSubject Dim strTextBody '==================begin your configuration============================= 'you must have a username and pass word or you will not be able to send ' Dim sendusername : sendusername = "user@userdomain.com" Dim userpassword : userpassword = "yourpassword" Dim smtpserver : smtpserver = "yoursmtpserver" 'end your configuration '===================begin set your info here============================ 'set your TO, CC, From, Subject and body here ' strTo = "touser@somedomain.com" strCC = "anotheruser@somedomain.com" strFrom = "fromuser@somedomain.com" strSubject = "Insert here your subject text" strTextBody = "Insert here your plain body text" 'end set your info here 'Create message and configuration objects set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields 'Apply settings to the configuration object With Flds  ' Specify the authentication mechanism to basic (clear-text) authentication. .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic' The username for authenticating to an SMTP server.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendusername' The password used to authenticate to an SMTP server.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = userpassword' Port.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort'Specify mail server.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver'Specify the timeout in seconds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25).Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True)'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False.UpdateEnd With 'Apply the settings to the message object and send it With iMsg Set .Configuration = iConf.To = strTo.From = strFromIf strCC <> "" Then.CC = strCCEnd If.Subject = strSubject.TextBody = strTextBody 'Send message.SendEnd With ' cleanup mail objects Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing %> |
|
Questions? Call sales at
1 (425) 274-4500
Or try our
Visit our Help Center where you can get simple and quick product support.
Questions? Call sales at
1 (425) 274-4500
Or try our
Visit our Help Center where you can get
simple and quick product support.
simple and quick product support.
Connect With Us
Copyright © 1998 - 2012 eNom Inc.
All rights reserved. Terms & Conditions | Privacy Policy
