Send mail using CDO.MESSAGE+SMTP

smtp| Send mail <!--send code-->


<%


Const cdosendusingmethod= "http://schemas.microsoft.com/cdo/configuration/sendusing"


Const cdosendusingport=2


Const cdosmtpserver= "Http://schemas.microsoft.com/cdo/configuration/smtpserver"


Const cdosmtpserverport= "Http://schemas.microsoft.com/cdo/configuration/smtpserverport"


Const cdosmtpconnectiontimeout= "Http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"


Const cdosmtpauthenticate= "Http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"


Const cdobasic=1


Const cdosendusername= "Http://schemas.microsoft.com/cdo/configuration/sendusername"


Const cdosendpassword= "Http://schemas.microsoft.com/cdo/configuration/sendpassword"





Dim objconfig ' as CDO. Configuration


Dim objmessage ' as CDO. Message


Dim Fields ' as ADODB. Fields





Set objconfig = Server.CreateObject ("CDO.") Configuration ")


Set Fields = Objconfig.fields





with Fields


. Item (Cdosendusingmethod) = cdoSendUsingPort


. Item (Cdosmtpserver) = "SMTP Server" is changed to the available external mail server domain name


. Item (cdosmtpserverport) = 25


. Item (cdosmtpconnectiontimeout) = 10


. Item (cdosmtpauthenticate) = Cdobasic


. Item (cdosendusername) = user name of the server above "user name"


. Item (Cdosendpassword) = "Password" password


. Update


End With





Set objmessage = Server.CreateObject ("CDO.") Message ")


Set objmessage.configuration = objconfig





with Objmessage


. to = Trim (Request.Form ("M_user")) ' changed to the recipient's mail address


. from = "The sender's address (to be identical to the mail system above)" is changed to the sender's e-mail address


. Subject = Trim (Request.Form ("M_zhuzi")) ' title


. TextBody = Trim (Request.Form ("M_neirong")) ' Body


'. AddAttachment "C:\Scripts\Output.txt" Mail attachment


. Send


End With





Set Fields = Nothing


Set objmessage = Nothing


Set objconfig = Nothing


%>


<!--send code-->