Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Authentication Required ASPEmail		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 12 April 2016 :  13:22:52  Show Profile  Visit Maxime's Homepage  Reply with Quote
Hello,

My mail service has changed with my host for the forum. It requires an account name address email username, port and password of the email account used with email and ASPEmail ASPMail components.
We'll have to make changes in admin_config_email.asp pages and inc_mail.asp. These pages are in French. Someone could make me change please.

admin_config_email.asp
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
Response.Write	"      <table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
		"          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">Tous Les Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " E-mail Serveur Configuration<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine
'	##	Test Mail Below
If Request.Form("TestEMail") = "DoIt" and mLev > 3 Then
	strRecipientsName = strDBNTUserName
	strRecipients = strSender
	strFrom = strSender
	strFromName = strForumTitle
	strsubject = strForumTitle & " EMail Configuration Test "
	strMessage = "Bonjour " & strDBNTUserName & vbNewLine & vbNewLine
	If Request.ServerVariables("HTTPS") = "on" Then
		strHost="https://"
	Else
		strHost="http://"
	End If
	strMessage = strMessage & "Félicitations, les paramètres de serveur de messagerie pour " & strForumTitle & ", situé à " & strForumURL & "admin_config_email.asp sont correctement configurés." & vbNewLine & vbNewLine
	%>
	<!--#INCLUDE FILE="inc_mail.asp" -->
	<%
End If
'	##	Test Mail Above
if Request.Form("Method_Type") = "Write_Configuration" then 
	Err_Msg = ""
	if Request.Form("strMailServer") = "" and Request.Form("strMailMode") <> "cdonts" and Request.Form("strEmail") = "1" then 
		Err_Msg = Err_Msg & "<li>Vous devez entrer l'adresse de votre serveur de messagerie</li>"
	end if
	if ((lcase(left(Request.Form("strMailServer"), 7)) = "http://") or (lcase(left(Request.Form("strMailServer"), 8)) = "https://")) and Request.Form("strEmail") = "1" then
		Err_Msg = Err_Msg & "<li>Ne faites pas précéder l'adresse du serveur de messagerie avec <b>http://</b>, <b>https://</b> or <b>file://</b></li>"
	end if
	if Request.Form("strSender") = "" then 
		Err_Msg = Err_Msg & "<li>Vous devez entrer l'adresse e-mail de l'Administrateur du Forum</li>"
	else
		if EmailField(Request.Form("strSender")) = 0 and Request.Form("strSender") <> "" then 
			Err_Msg = Err_Msg & "<li>Vous devez entrer une adresse E-mail Valide pour l'Administrateur du Forum</li>"
		end if
	end if
	if Request.Form("strRestrictReg") = 1 and Request.Form("strEmailVal") = 0 then
		Err_Msg = Err_Msg & "<li>Adresse e-mail de validation doit être activé pour permettre l'option d'enregistrement Restreindre</li>"
	end if
	if not IsNumeric(Request.Form("intMaxPostsToEMail")) then
		Err_Msg = Err_Msg & "<li>Nombre de messages afin de permettre l'envoi d'e-mail doit être un nombre</li>"
	end if

	if Err_Msg = "" then
		'## Forum_SQL
		for each key in Request.Form 
			if left(key,3) = "str" or left(key,3) = "int" then
				strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLString"))
			end if
		next
		Application(strCookieURL & "ConfigLoaded") = ""
		'	##	Test Mail Below
		If Request.Form("TestMail") <> "Test Config EMail" Then
			Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Configuration Posté!</font></p>" & vbNewLine
		Else
			Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Mail Envoyé!</font></p>" & vbNewLine
		End If
		Response.Write	"      <meta http-equiv=""Refresh"" content=""2; URL=admin_config_email.asp"">" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""admin_home.asp"">Retour Admin Home</font></a></p>" & vbNewLine
		'	##	Test Mail Above
	else
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Il y Avait un Problème avec vos Détails</font></p>" & vbNewLine & _
				"      <table align=""center"" border=""0"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Retour Entrer Données</a></font></p>" & vbNewLine
	end if
else
	Dim theComponent(20)
	Dim theComponentName(20)
	Dim theComponentValue(20)

	'## the components
	theComponent(0) = "ABMailer.Mailman"
	theComponent(1) = "Persits.MailSender"
	theComponent(2) = "SMTPsvg.Mailer"
	theComponent(3) = "SMTPsvg.Mailer"
	theComponent(4) = "CDONTS.NewMail"
	theComponent(5) = "CDONTS.NewMail"
	theComponent(6) = "CDO.Message"
	theComponent(7) = "dkQmail.Qmail"
	theComponent(8) = "Dundas.Mailer"
	theComponent(9) = "Dundas.Mailer"
	theComponent(10) = "Innoveda.MailSender"
	theComponent(11) = "Geocel.Mailer"
	theComponent(12) = "iismail.iismail.1"
	theComponent(13) = "Jmail.smtpmail"
	theComponent(14) = "Jmail.Message"
	theComponent(15) = "MDUserCom.MDUser"
	theComponent(16) = "ASPMail.ASPMailCtrl.1"
	theComponent(17) = "ocxQmail.ocxQmailCtrl.1"
	theComponent(18) = "SoftArtisans.SMTPMail"
	theComponent(19) = "SmtpMail.SmtpMail.1"
	theComponent(20) = "VSEmail.SMTPSendMail"

	'## the name of the components
	theComponentName(0) = "ABMailer v2.2+"
	theComponentName(1) = "ASPEMail"
	theComponentName(2) = "ASPMail"
	theComponentName(3) = "ASPQMail"
	theComponentName(4) = "CDONTS (IIS 3/4/5)"
	theComponentName(5) = "Chili!Mail (Chili!Soft ASP)"
	theComponentName(6) = "CDOSYS (IIS 5/5.1/6)"
	theComponentName(7) = "dkQMail"
	theComponentName(8) = "Dundas Mail (QuickSend)"
	theComponentName(9) = "Dundas Mail (SendMail)"
	theComponentName(10) = "FreeMailSender"
	theComponentName(11) = "GeoCel"
	theComponentName(12) = "IISMail"
	theComponentName(13) = "JMail 3.x"
	theComponentName(14) = "JMail 4.x"
	theComponentName(15) = "MDaemon"
	theComponentName(16) = "OCXMail"
	theComponentName(17) = "OCXQMail"
	theComponentName(18) = "SA-Smtp Mail"
	theComponentName(19) = "SMTP"
	theComponentName(20) = "VSEmail"

	'## the value of the components
	theComponentValue(0) = "abmailer"
	theComponentValue(1) = "aspemail"
	theComponentValue(2) = "aspmail"
	theComponentValue(3) = "aspqmail"
	theComponentValue(4) = "cdonts"
	theComponentValue(5) = "chilicdonts"
	theComponentValue(6) = "cdosys"
	theComponentValue(7) = "dkqmail"
	theComponentValue(8) = "dundasmailq"
	theComponentValue(9) = "dundasmails"
	theComponentValue(10) = "freemailsender"
	theComponentValue(11) = "geocel"
	theComponentValue(12) = "iismail"
	theComponentValue(13) = "jmail"
	theComponentValue(14) = "jmail4"
	theComponentValue(15) = "mdaemon"
	theComponentValue(16) = "ocxmail"
	theComponentValue(17) = "ocxqmail"
	theComponentValue(18) = "sasmtpmail"
	theComponentValue(19) = "smtp"
	theComponentValue(20) = "vsemail"

	Response.Write	"      <form action=""admin_config_email.asp"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
			"      <input type=""hidden"" name=""Method_Type"" value=""Write_Configuration"">" & vbNewLine & _
			"      <table border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
			"            <table border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Configuration Serveur E-mail</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Sélectionnez Composant E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                <select name=""strMailMode"">" & vbNewLine
	dim i, j
	j = 0
	for i=0 to UBound(theComponent)
		if IsObjInstalled(theComponent(i)) then 
			Response.Write	"    <option value=""" & theComponentValue(i) & """" & chkSelect(strMailMode,theComponentValue(i)) & ">" & theComponentName(i) & "</option>" & vbNewline
		else
			j = j + 1
		end if
	next
	if j > UBound(theComponent) then
		Response.Write	"    <option value=""None"">Aucuns Composants Compatible Trouvés</option>" & vbNewline
	end if 

	Response.Write	"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#email')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Mode:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strEmail"" value=""1"""
	if j > UBound(theComponent) then Response.Write(" disabled") else if lcase(strEmail) <> "0" then Response.Write(" checked")
	Response.Write	"> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strEmail"" value=""0"""
	if j > UBound(theComponent) then Response.Write(" checked") else if lcase(strEmail) = "0" then Response.Write(" checked")
	Response.Write	">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#email')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Adresse SMTP:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <input type=""text"" name=""strMailServer"" size=""40"" value=""" & strMailServer & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#mailserver')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Administrateur Adresse E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <input type=""text"" name=""strSender"" size=""40"" value=""" & strSender & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#sender')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Exiger unique E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strUniqueEmail"" value=""1""" & chkRadio(strUniqueEmail,1,true) & "> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strUniqueEmail"" value=""0""" & chkRadio(strUniqueEmail,1,false) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#UniqueEmail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Validation E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strEmailVal"" value=""1""" & chkRadio(strEmailVal,1,true) & "> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strEmailVal"" value=""0""" & chkRadio(strEmailVal,1,false) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#EmailVal')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Filtre domaines de spam connus:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strFilterEMailAddresses"" value=""1""" & chkRadio(strFilterEMailAddresses,1,true) & "> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strFilterEMailAddresses"" value=""0""" & chkRadio(strFilterEMailAddresses,1,false) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#EmailFilter')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Approuver/Rejeter l'Enregistrement:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strRestrictReg"" value=""1""" & chkRadio(strRestrictReg,1,true) & "> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strRestrictReg"" value=""0""" & chkRadio(strRestrictReg,1,false) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#RestrictReg')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Exiger la Connexion pour l'envoi de Courrier:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strLogonForMail"" value=""1""" & chkRadio(strLogonForMail,1,true) & "> " & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strLogonForMail"" value=""0""" & chkRadio(strLogonForMail,1,false) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#LogonForMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Nombre de messages afin de permettre l'envoi d'e-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                <input type=""text"" name=""intMaxPostsToEMail"" size=""40"" maxlength=""10"" value=""" & intMaxPostsToEMail & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#MaxPostsToEMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Erreur s'ils n'ont pas assez de postes:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                <input type=""text"" name=""strNoMaxPostsToEMail"" size=""40"" maxlength=""255"" value=""" & strNoMaxPostsToEMail & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#NoMaxPostsToEMail')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine
		'	##Test Mail ci-dessous (Note:  Remove the & _ from the line above)
		Response.Write	"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Envoyer New Config"" id=""submit1"" name=""submit1""> <input type=""reset"" value=""Réinitialiser Vieilles Valeurs"" id=""reset1"" name=""reset1"">" & vbNewLine
		If Err_Msg="" Then
			Response.Write	"			<input type=""hidden"" name=""TestEMail"" value=""DoIt"">" & vbNewLine & _
				"						 <input type=""submit"" value=""Test Config EMail"" name=""TestMail"">" & vbNewLine
		End If
		Response.Write	"					 </td>" & vbNewLine
		'	##	Test Mail Above (Note:  Add Response.Write to the line below)
		Response.Write	"              </tr>" & vbNewLine & _
			"            </table>" & vbNewLine & _
			"          </td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"      </form>" & vbNewLine
end if 
WriteFooter
Response.End

function IsObjInstalled(strClassString)
	on error resume next
	'## initialize default values
	IsObjInstalled = false
	Err.Clear
	'## testing code
	dim xTestObj
	set xTestObj = Server.CreateObject(strClassString)
	if Err.Number = 0 then
		IsObjInstalled = true
	end if
	'## cleanup
	set xTestObj = nothing
	Err.Clear
	on error goto 0
end function
%>


inc_mail.asp
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

if trim(strFromName) = "" then
	strFromName = strForumTitle
end if

select case lcase(strMailMode) 
	case "abmailer"
		Set objNewMail = Server.CreateObject("ABMailer.Mailman")
		objNewMail.ServerAddr = strMailServer
		objNewMail.FromName = strFromName
		objNewMail.FromAddress = strSender
		objNewMail.SendTo = strRecipients
		objNewMail.MailSubject = strSubject
		objNewMail.MailMessage = strMessage
		on error resume next '## Ignore Errors
		objNewMail.SendMail
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "aspemail"
		Set objNewMail = Server.CreateObject("Persits.MailSender")
		objNewMail.FromName = strFromName
		objNewMail.From = strSender
		objNewMail.AddReplyTo strSender
		objNewMail.Host = strMailServer
		objNewMail.AddAddress strRecipients, strRecipientsName
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "aspmail"
		Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
		objNewMail.FromName = strFromName
		objNewMail.FromAddress = strSender
		'objNewMail.AddReplyTo = strSender
		objNewMail.RemoteHost = strMailServer
		objNewMail.AddRecipient strRecipientsName, strRecipients
		objNewMail.Subject = strSubject
		objNewMail.BodyText = strMessage
		on error resume next '## Ignore Errors
		SendOk = objNewMail.SendMail
		If not(SendOk) <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & objNewMail.Response & "</li>"
		End if
	case "aspqmail"
		Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
		objNewMail.QMessage = 1
		objNewMail.FromName = strFromName
		objNewMail.FromAddress = strSender
		objNewMail.RemoteHost = strMailServer
		objNewMail.AddRecipient strRecipientsName, strRecipients
		objNewMail.Subject = strSubject
		objNewMail.BodyText = strMessage
		on error resume next '## Ignore Errors
		objNewMail.SendMail
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "cdonts"
		Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
		objNewMail.BodyFormat = 1
		objNewMail.MailFormat = 0
		on error resume next '## Ignore Errors
		objNewMail.Send strSender, strRecipients, strSubject, strMessage
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
		on error resume next '## Ignore Errors
	case "chilicdonts"
		Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
		on error resume next '## Ignore Errors
		objNewMail.Host = strMailServer
		objNewMail.To = strRecipients
		objNewMail.From = strSender
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
		on error resume next '## Ignore Errors
	case "cdosys"
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
        	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
		'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
		'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
        	Flds.Update

	        Set objNewMail = Server.CreateObject("CDO.Message")
        	Set objNewMail.Configuration = iConf

	        'Format and send message
        	Err.Clear 

		objNewMail.To = strRecipients
		objNewMail.From = strSender
		objNewMail.Subject = strSubject
		objNewMail.TextBody = strMessage
        	On Error Resume Next
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "dkqmail"
		Set objNewMail = Server.CreateObject("dkQmail.Qmail")
		objNewMail.FromEmail = strSender
		objNewMail.ToEmail = strRecipients
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		objNewMail.CC = ""
		objNewMail.MessageType = "TEXT"
		on error resume next '## Ignore Errors
		objNewMail.SendMail()
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "dundasmailq"
		set objNewMail = Server.CreateObject("Dundas.Mailer")
		objNewMail.QuickSend strSender, strRecipients, strSubject, strMessage
		on error resume next '##Ignore Errors
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "dundasmails"
		set objNewMail = Server.CreateObject("Dundas.Mailer")
		objNewMail.TOs.Add strRecipients
		objNewMail.FromAddress = strSender
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '##Ignore Errors
		objNewMail.SendMail
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "freemailsender"
		set objNewMail = Server.CreateObject("Innoveda.MailSender")

		NoLoginMethod=0
		CramMD5Method=1
		AuthLoginMethod=2
		LoginPlainMethod=3

		objNewMail.Username = "username"
		objNewMail.Password = "password"
		objNewMail.LoginMethod = NoLoginMethod

		objNewMail.FromName = strFromName
		objNewMail.From = strSender
		'objNewMail.AddReplyTo strSender
		objNewMail.Host = strMailServer
		objNewMail.To = strRecipients
		'objNewMail.CC = strSender
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "geocel"
		set objNewMail = Server.CreateObject("Geocel.Mailer")
		objNewMail.AddServer strMailServer, 25
		objNewMail.AddRecipient strRecipients, strRecipientsName
		objNewMail.FromName = strFromName
		objNewMail.FromAddress = strFrom
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '##  Ignore Errors
		objNewMail.Send()
		if Err <> 0 then 
			Response.Write "Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description 
		else
			Response.Write "votre mail a bien été envoyét..."
		end if
	case "iismail"
		Set objNewMail = Server.CreateObject("iismail.iismail.1")
		MailServer = strMailServer
		objNewMail.Server = strMailServer
		objNewMail.addRecipient(strRecipients)
		objNewMail.From = strSender
		objNewMail.Subject = strSubject
		objNewMail.body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "jmail"
		Set objNewMail = Server.CreateObject("Jmail.smtpmail")
		objNewMail.ServerAddress = strMailServer
		objNewMail.AddRecipient strRecipients
		objNewMail.Sender = strSender
		objNewMail.Subject = strSubject
		objNewMail.body = strMessage
		objNewMail.priority = 3
		on error resume next '## Ignore Errors
		objNewMail.execute
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "jmail4"
		Set objNewMail = Server.CreateObject("Jmail.Message")
		'objNewMail.MailServerUserName = "myUserName"
		'objNewMail.MailServerPassword = "MyPassword"
		objNewMail.From = strSender
		objNewMail.FromName = strFromName
		objNewMail.AddRecipient strRecipients, strRecipientsName
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send(strMailServer)
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "mdaemon"
		Set gMDUser = Server.CreateObject("MDUserCom.MDUser")
		mbDllLoaded = gMDUser.LoadUserDll
		if mbDllLoaded = False then
			response.write "Could not load MDUSER.DLL! Program will exit." & "<br />"
		else
			Set gMDMessageInfo = Server.CreateObject("MDUserCom.MDMessageInfo")
			gMDUser.InitMessageInfo gMDMessageInfo
			gMDMessageInfo.To = strRecipients
			gMDMessageInfo.From = strSender
			gMDMessageInfo.Subject = strSubject
			gMDMessageInfo.MessageBody = strMessage
			gMDMessageInfo.Priority = 0
			gMDUser.SpoolMessage gMDMessageInfo
			mbDllLoaded = gMDUser.FreeUserDll
		end if
		if Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		end if
	case "ocxmail"
		Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
		recipient = strRecipients
		sender = strSender
		subject = strSubject
		message = strMessage
		mailserver = strMailServer
		on error resume next '## Ignore Errors
		result = objNewMail.SendMail(mailserver, recipient, sender, subject, message)
		If Err <> 0 Then
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "ocxqmail"
		Set objNewMail = Server.CreateObject("ocxQmail.ocxQmailCtrl.1")
		mailServer = strMailServer
		FromName = strFromName
		FromAddress = strSender
		priority = ""
		returnReceipt = ""
		toAddressList = strRecipients
		ccAddressList = ""
		bccAddressList = ""
		attachmentList = ""
		messageSubject = strSubject
		messageText = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Q mailServer,      _
			fromName,      _
		        fromAddress,      _
		        priority,      _
		        returnReceipt,      _
		        toAddressList,      _
		        ccAddressList,      _
		        bccAddressList,      _
		        attachmentList,      _
		        messageSubject,      _
		        messageText
		If Err <> 0 Then
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "sasmtpmail"
		Set objNewMail = Server.CreateObject("SoftArtisans.SMTPMail")
		objNewMail.FromName = strFromName
		objNewMail.FromAddress = strSender
		objNewMail.AddRecipient strRecipientsName, strRecipients
		'objNewMail.AddReplyTo strSender
		objNewMail.BodyText = strMessage
		objNewMail.organization = strForumTitle
		objNewMail.Subject = strSubject
		objNewMail.RemoteHost = strMailServer
		on error resume next
		SendOk = objNewMail.SendMail
		If not(SendOk) <> 0 Then
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivanter: " & objNewMail.Response & "</li>"
		End if
	case "smtp"
		Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
		objNewMail.MailServer = strMailServer
		objNewMail.Recipients = strRecipients
		objNewMail.Sender = strSender
		objNewMail.Subject = strSubject
		objNewMail.Message = strMessage
		on error resume next '## Ignore Errors
		objNewMail.SendMail2
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
	case "vsemail"
		Set objNewMail = CreateObject("VSEmail.SMTPSendMail")
		objNewMail.Host = strMailServer
		objNewMail.From = strSender
		objNewMail.SendTo = strRecipients
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Connect
		objNewMail.Send
		objNewMail.Disconnect
		If Err <> 0 Then
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if
end select

Set objNewMail = Nothing

on error goto 0
%>
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 12 April 2016 :  19:22:13  Show Profile
Here is for ASPEmail:

	case "aspemail"
		Set objNewMail = Server.CreateObject("Persits.MailSender")
		' objNewMail.Username = "<Nom d'utilisateur>"
		' objNewMail.Password = "<Mot de passe>"
		objNewMail.FromName = strFromName
		objNewMail.From = strSender
		objNewMail.AddReplyTo strSender
		objNewMail.Host = strMailServer
		' objNewMail.Port = "<mail Port>"
		objNewMail.AddAddress strRecipients, strRecipientsName
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Votre demande n'a pas été envoyé en raison de l'erreur suivante: " & Err.Description & "</li>"
		End if

Just remove the ' in front of the line, replace the <Nom d'utilisateur> with your mail logon and <Mot de passe> with the password and I have also added in case you need to add a port.

From memory, the ASPMail doesn't allow for the login to be added as the component should work from the server.
Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 13 April 2016 :  03:29:42  Show Profile  Visit Maxime's Homepage
Hello David,

Thank you very much for help. I know nothing about developing ASP, but I worked a lot to translate all pages in French and I installed all the mods are the top as view videos, mp3, pdf, automatic reduction of large images etc.

Good day to you David and it works fine.
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 15 April 2016 :  07:02:37  Show Profile  Visit Maxime's Homepage
Hello,

There is a way that is installed from the database for all components located on inc_mail.asp using admin_config_email.asp pages and creating a dbs page to include additional fields in the database.

Just port fields and password. If I have problems I would come back to you.

Thank you very much to those who realize that.
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 15 April 2016 07:05:56
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 16 April 2016 :  01:33:13  Show Profile
So you would like to put the username and password for the mail sender in to the database and be able to change it in there?

This is possible, just do not have time this week-end to do the full code, but will during the week if you like. I would say that you would need to create the extra 4 extra entries in the FORUM_CONFIG_NEW table (STRMAILSENDREQ - Default - No; STRMAILSENDUSER - Default - someone@somedomain.com; STRSENDMAILPWD - Default - NoPassword; and finally STRSENDMAILPORT - Default - 25; these fields are not set in stone as I just quickly made them up) as so:

Send Mail User MOD V1.0 for Snitz 3.4.xx Compatible

[INSERT]
CONFIG_NEW
(C_VARIABLE,C_VALUE)#('STRMAILSENDREQ','0')
(C_VARIABLE,C_VALUE)#('STRMAILSENDUSER','someone@somedomain.com')
(C_VARIABLE,C_VALUE)#('STRMAILSENDPWD','NoPassword')
(C_VARIABLE,C_VALUE)#('STRMAILSENDPORT','25')
[END]


Then edit the admin_config_email.asp to add the 4 new fields (E-mail Login Required - Yes or No radio buttons using 1 for yes and 0 (zero) for no; Username to Send E-mail - Text field up to 250 chars; Password to Send E-mail - Password field up to 100 chars; and finally Send Mail Port - Text field up to 6 chars) something like this:

	"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>E-mail Login Required:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                Yes: <input type=""radio"" class=""radio"" name=""strMailSendReq"" value=""1"""
	if j > UBound(theComponent) then Response.Write(" disabled") else if lcase(strMailSendReq) <> "0" then Response.Write(" checked")
	Response.Write	"> " & vbNewLine & _
			"                No: <input type=""radio"" class=""radio"" name=""strMailSendReq"" value=""0"""
	if j > UBound(theComponent) then Response.Write(" checked") else if lcase(strMailSendReq) = "0" then Response.Write(" checked")
	Response.Write	">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#emailloginreq')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Username to Send E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <input type=""text"" name=""strMailSendUser"" size=""40"" value=""" & strMailSendUser & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#emailsenduser')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Password to Send E-mail:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <input type=""password"" name=""strMailSendPWD"" size=""40"" value=""" & strMailSendPWD & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#passwordsenduser')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Send E-mail Port:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <input type=""text"" name=""strMailSendPort"" size=""40"" value=""" & strMailSendPort & """>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=email#sendmailport')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _


Then pop_config_help.asp needs to be updated with help code:

				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strCategoryCellColor & """><a name=""emailloginreq""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ ><b>What is E-mail Login Required?</b></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
				"                The mail server requires a login to be able to send. This could be something like:<br />" & vbNewLine & _
				"                <b>Yes</b><br />" & vbNewLine & _
				"                or it could be:<br />" & vbNewLine & _
				"                <b>No</b><br />" & vbNewLine & _
				"                Either way, select Yes or No.<br />" & vbNewLine & _
				"                <br />" & vbNewLine & _
				"                <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strCategoryCellColor & """><a name=""emailsenduser""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ ><b>What is Username to Send E-mail?</b></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
				"                The mail server username to be able to send emails. This could be something like:<br />" & vbNewLine & _
				"                <b>someone@snitz.com</b><br />" & vbNewLine & _
				"                or it could be a simple name like:<br />" & vbNewLine & _
				"                <b>someone</b><br />" & vbNewLine & _
				"                The username will be what your or you host has created and allowed to login and send mail.<br />" & vbNewLine & _
				"                <br />" & vbNewLine & _
				"                <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strCategoryCellColor & """><a name=""passwordsenduser""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ ><b>What is the Password to Send E-mail?</b></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
				"                The mail password is what has been supplied by your host, or what you gave the user account to login and send emails.<br />" & vbNewLine & _
				"                <br />" & vbNewLine & _
				"                <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strCategoryCellColor & """><a name=""sendmailport""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """ ><b>What is Send E-mail Port?</b></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
				"                The port for sending email from the server address that your host has provided. This could be something like:<br />" & vbNewLine & _
				"                <b>25</b><br />" & vbNewLine & _
				"                or it could be something like:<br />" & vbNewLine & _
				"                <b>587</b><br />" & vbNewLine & _
				"                Either way, you need to place the correct port to be able to send emails with port 25 being the default port.<br />" & vbNewLine & _
				"                <br />" & vbNewLine & _
				"                <a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a></font></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _


Then you need to edit config.asp in the in the Dim's and in the application variables locations:

Dim's:
Dim strMailSendReq, strMailSendUser, strMailSendPWD, strMailSendPort


Application Variables:


strMailSendReq = Application(strCookieURL & "STRMAILSENDREQ")
strMailSendUser = Application(strCookieURL & "STRMAILSENDUSER")
strMailSendPWD = Application(strCookieURL & "STRMAILSENDPWD")
strMailSendPort = Application(strCookieURL & "STRMAILSENDPORT")


Then there is the inc_mail.asp file would need editing and you would edit any of the components that can have the option of the using a username and password for sending emails and you would put the port in as well and here is the ASPEmail one done:

	case "aspemail"
		Set objNewMail = Server.CreateObject("Persits.MailSender")
		objNewMail.FromName = strFromName
		objNewMail.From = strSender
		objNewMail.AddReplyTo strSender
		objNewMail.Host = strMailServer
		objNewMail.Port = strMailSendPort
		if strMailSendReq = "1" then
			objNewMail.Username = strMailSendUser
			objNewMail.Password = strMailSendPWD
		end if
		objNewMail.AddAddress strRecipients, strRecipientsName
		objNewMail.Subject = strSubject
		objNewMail.Body = strMessage
		on error resume next '## Ignore Errors
		objNewMail.Send
		If Err <> 0 Then 
			Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
		End if


I can put this together as a MOD, just going to take a little while to put it together and it is the weekend here and I have the wife wanting me to do stuff or I would include do it all now. I hope this helps, you just need to find the right line numbers to add it at that location.
Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 16 April 2016 :  04:48:48  Show Profile  Visit Maxime's Homepage
Hello David,

It's very nice to you and take your time, I am retired, so I have time lol!
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 18 April 2016 :  04:46:09  Show Profile  Visit Maxime's Homepage
Hello,

Do you know if these changes can also be made on the other component of the inc_mail.asp page?

Good day and thank you for the help
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 18 April 2016 :  04:57:20  Show Profile
I am adding these to the ones that I can add them to.
quote:
Originally posted by Maxime

Hello,

Do you know if these changes can also be made on the other component of the inc_mail.asp page?

Good day and thank you for the help
I should have something in a day or so, just need to test on the server and a host to make sure it works before releasing.
Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 18 April 2016 :  05:54:04  Show Profile  Visit Maxime's Homepage

Hello David,

At the beginning it was not working and I found out why. Fields was not the same in commands given in the base and on the config page. asp

Code that runs on config.asp and I also changed on the database.
strMailSendReq = Application(strCookieURL & "STRMAILSENDREQ")
strMailSendUser = Application(strCookieURL & "STRMAILSENDUSER")
strMailSendPWD = Application(strCookieURL & "STRMAILSENDPWD")
strMailSendPort = Application(strCookieURL & "STRMAILSENDPORT")
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 19 April 2016 :  22:55:43  Show Profile
Hi Maxime,

I have done the mod and uploaded to the Internet at: Send Mail User MOD V1.0 (Had to change the URL temporarily for the moment)

I have tested it from a host and away from the host and it is working with the host I was pointing the mail to. I have also tried to make it as simple as possible.
Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 20 April 2016 :  11:14:29  Show Profile  Visit Maxime's Homepage
Hello David,

I'll watch it, because after that I was not there. It is 5:15 p.m. here and as the weather is nice I travais entretin outside the garden ..

Thank you very much for all the work you have done. Have a good day.
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 22 April 2016 :  11:06:31  Show Profile  Visit Maxime's Homepage
Hello David,
I installed your mod, I just looked at my page because it admin_config_email.asp sending an email hen I test
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.54 seconds. Powered By: Snitz Forums 2000 Version 3.4.07