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: Mail Configuration
 Email problem on Parallels Plesk Panel server		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

azur
Starting Member

Canada
1 Posts
Posted - 15 March 2011 :  12:52:34  Show Profile  Reply with Quote
Hello Does anyone experimented issue executing the mail feature on Parallels Plesk Panel server like it is sometimes used at some hosting providers?

Thanks,

Dominique

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 16 March 2011 :  13:05:56  Show Profile  Reply with Quote
Yes, I have a Plesk hosted domain. I have not had an issue with the e-mail as you need to use the hosts mail relay server. You will need to check with the Hosting companies FAQ's or the support help desk to get the details of this.

Apart from that if you want to give some more detail with the issue that you have and we maybe able to wrk it out.
Cheers,

David Greening
Go to Top of Page

GPCasali
Starting Member

Australia
8 Posts
Posted - 20 March 2013 :  23:15:50  Show Profile  Reply with Quote
Hi there, sorry to hijack the topic, but in similar predicament.

iiNet is a major service provider here in Australia and I have recently transferred our non-profit association's web site and attached forum to them.

The hosting had to be downgraded to IIS6 specifically for us, and they appear to use Parallel Plesk as that is the way I log into Control Panel for the web hosting.

Our site/forum have always worked well using jMail at both previous hosting companies; now I am told iiNet does not have a licence for jMail and do not seem to want to enable it server side for us to use.

So all mail functions of the web site and forum are dead!

They advised to change the mail system to CDOSYS, like I knew what I was doing...

I am a volunteer, who can administer the day to day running: updating news, accepting new members, changing their status, opening and closing polls, etc; but I have very, very, (very!) limited knowledge and understanding of ASP code.

In the Admin panel I can see how to change from ASPEmail to CDOSYS, but having done so does not change anything: none of the extensive ASP code relating to email functions has actually changed and the same error occurs with the running of the "email_process.asp"

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/email/email_process.asp, line 66
800401f3


Here is the actual "email_process.asp" file after changing to CDOSYS in Admin Panel on the forum:

<%response.buffer = "false"
'process uploads

'	Dim oFileUp

'	Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")

'	oFileUp.Path = Server.MapPath(Application("vroot") & "/maw/upload")

'	If Not oFileUp.Form("myFile1").IsEmpty Then
'		file1 = "yes"
'		oFileUp.Form("myFile1").Save
'	Else
'	End If
	
'	If Not oFileUp.Form("myFile2").IsEmpty Then
'		file2 = "yes"
'		oFileUp.Form("myFile2").Save
'	Else
'	End If
'	
'	if file2 <> "yes" and file1 <> "yes" then
'		files_to_send = "no"
'	else
'		files_to_send = "yes"
'	end if
%><html>

<html>

<head>
<meta http-equiv="Content-Language" content="en-au">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" link="#100F5D" alink="#100F5D" vlink="#100F5D">
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="10" bgcolor="#30A8FF">
	<!-- MSTableType="layout" -->
	<tr>
		<td height="40" valign="top" bgcolor="#007AC5">
		<span style="text-transform: uppercase">
		<font face="Arial" color="#FFFFFF" size="2">
		<a target="_top" href="http://www.xxxxx.asn.au/main_menu.asp">
		<span style="text-decoration: none"><font color="#FFFFFF">Home</font></span></a></font></span></td>
	</tr>	
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="10" bgcolor="#30A8FF">
	<tr>
		<td bgcolor="#FFFFFF" align="left" valign="top" style="text-align: left; margin-left: 1; margin-top: 1">
			<span style="text-transform: uppercase"><b><i>
		<font face="Arial" color="#100F5D">SEND EMAIL TO XXXXX MEMBERS</font></i></b></span><p>
			
			<%'send email
			'find senders details
Set authConn = Server.CreateObject ("ADODB.Connection")
StrConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxdb\snitz_forums_2000.mdb;" '## MS Access 2000
authConn.Open strConnString
'sqlstatement = "Select * from FORUM_MEMBERS where ucase(M_NAME) = 'Xxxxxxx Xxxxxxx'"
'sqlstatement = "Select * from FORUM_MEMBERS where ucase(M_NAME) = ''"

sqlstatement = "Select * from FORUM_MEMBERS where ucase(M_NAME) = '" & request.form("M_NAME") & "'"
Set sender_details = authConn.Execute (SQLStatement)

sqlstatement = "Select * from FORUM_MEMBERS where trim(M_EMAIL) <> '' and ucase(M_TITLE) <> 'RESIGNED' order by M_LASTNAME "
Set details = authConn.Execute (SQLStatement)

Set JMail = Server.CreateObject("JMail.SMTPMail") 
JMail.ServerAddress = "localhost"	

%><font face="Arial" size="2"><p>Sending Emails to:</p><%
do while not details.eof
	if ucase(request.form(cstr(details.fields("member_id")))) = "ON" then
		'mail it to go out to this user
			'send HTML		
			JMail.ClearRecipients()
			JMail.ClearAttachments()
			JMail.Sender = trim(Sender_details.fields("M_EMAIL"))
'			JMail.Sender = ""		
			jMail.SenderName = Pcase(session("name"))
'			jMail.SenderName = ""
'			jMail.SenderName = ""
'			jMail.SenderName = ""
			JMail.Subject = request.Form("subject")
			JMail.ReplyTo = trim(sender_details.fields("M_EMAIL"))
'			JMail.ReplyTo = ""	
'			JMail.ReplyTo = ""		
			Jmail.ISOEncodeHeaders = false 
			JMail.Encoding = "base64"
			JMail.ContentTransferEncoding = "Quoted-Printable"		

			
			JMail.AddRecipient  trim(details.fields("M_EMAIL"))
						
			JMail.AddRecipientBCC  "webmaster@xxxx.asn.au"
			
			email_text = "<head>"
			email_text = email_text &  "<meta content=""text/html; charset=iso-8859-1"" http-equiv=""Content-Type"">" & vbcrlf
			email_text = email_text &  "<title> </title>" & vbcrlf
			email_text = email_text &  "<style>body         { background-repeat: repeat-y; color: #000000; font-family: verdana; font-size: " & vbcrlf
			email_text = email_text &  "               10pt; margin-left: 25px; margin-top: 10px }" & vbcrlf
			email_text = email_text &  "a            { color: #000066 }" & vbcrlf
			email_text = email_text &  "hr           { color: #293139; height: 4px; width: 100% }" & vbcrlf
			email_text = email_text &  " div.MsoNormal" & vbcrlf
			email_text = email_text &  "	{mso-style-parent:"";" & vbcrlf
			email_text = email_text &  "	margin-bottom:.0001pt;" & vbcrlf
			email_text = email_text &  "	text-autospace:none;" & vbcrlf
			email_text = email_text &  "	font-size:12.0pt;" & vbcrlf
			email_text = email_text &  "	font-family:""Arial"";" & vbcrlf
			email_text = email_text &  "	margin-left:0cm; margin-right:0cm; margin-top:0cm}" & vbcrlf
			email_text = email_text &  "</style>" & vbcrlf
			email_text = email_text &  "</head>" & vbcrlf
			email_text = email_text &  "<html>" & vbcrlf
			email_text = email_text &  "<body bgcolor=""#FFFFFF"">" & vbcrlf
			email_text = email_text &  "<font face=""Arial"">" & vbcrlf
			email_text = email_text &  "<div>" & vbcrlf
			email_text = email_text &  "  <table border=""0"" width=""100%"">" & vbcrlf
			email_text = email_text &  "    <tr>" & vbcrlf
			email_text = email_text &  "      <td width=""100%"" valign=""top"">" & vbcrlf
			email_text = email_text &  "    <table border=""0"" cellpadding=""0"" style=""border-collapse: collapse"" width=""100%"" id=""table1"">" & vbcrlf
			email_text = email_text &  "		<tr>" & vbcrlf
			email_text = email_text &  "			<td>" & vbcrlf
			email_text = email_text &  "			<p align=""center"">" & vbcrlf
			email_text = email_text &  " <font face=""Arial"">" & vbcrlf
			email_text = email_text &  "<img border=""0"" src=""http://www.xxxxx.asn.au/images/email_logo.jpg"" width=""395"" height=""88"">" & vbcrlf
			email_text = email_text &  " </font></td>" & vbcrlf
			email_text = email_text &  "		</tr>" & vbcrlf
			email_text = email_text &  "	</table>" & vbcrlf
			email_text = email_text &  "	<p align=""left"">" & vbcrlf
			email_text = email_text &  "    <font face=""arial"" size=""2"">" & vbcrlf
			email_text = email_text &  "Dear " & trim(details.fields("M_FIRSTNAME")) & ",<br> <br>" & vbcrlf
	
			charout = ""
			charcount = 0
			if len(trim(request.Form("email_message"))) > 1 then
				'parse and check for space
				temptext = trim(request.form("email_message"))
				do while len(temptext) > 0
					if left(temptext,1) = chr(13) then
						'lf found
						charout = charout + "<br>"					
						charcount = 0
					else
					end if
					if left(temptext,1) = chr(13) then
						'space found
						charcount = 0
					else
						charcount = charcount + 1
						if charcount > 100 and left(temptext,1) = " " then
							charout = charout + "<br>"
							charcount = 0
						else
						end if
					end if
					charout = charout + left(temptext,1)
					temptext = right(temptext,(len(temptext)-1))
				loop
			else
				charout = trim(request.Form("email_message"))
			end if
	
			email_text = email_text & trim(charout) 
			email_text = email_text &  "</font></p>"
			email_text = email_text &  "		</td>"
			email_text = email_text &  "    </tr>"
			email_text = email_text &  "  </table>"
			email_text = email_text &  "</div>"
			email_text = email_text &  "</font>"
			email_text = email_text &  "</body></html>"
	
			JMail.HTMLBody = email_text
	
			JMail.Priority = 3
			JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
			JMail.Logging = true
			JMail.Execute
			if err <> 0 then 
				Response.Write( JMail.Log )
			response.end
			end if
			
			%><%=trim(details.fields("M_NAME"))%> -  <%=trim(details.fields("M_EMAIL"))%><br><% 
	else
		'this email is not to go to this user
	end if
	details.movenext
loop

JMail.Close 
Set oFileUp = Nothing
%>
			<br>
			Email sent successfully!</p>
			<p><font face="Arial" size="2">Click <a href="default.asp">here</a> 
			to send another email or <a href="../main.asp">here</a> to 
			return to the website.</font></td>
	</tr>
</table>
</body>

</html><%


'************************************************************
' This function takes a string and converts to Proper Case.
' Prototyped by: Brian Shamblen on 3/18/99
' This version by: Us... naturally!
'************************************************************
Function PCase(strInput)
	Dim iPosition  ' Our current position in the string (First character = 1)
	Dim iSpace     ' The position of the next space after our iPosition
	Dim strOutput  ' Our temporary string used to build the function's output

	' Set our position variable to the start of the string.
	iPosition = 1
	
	' We loop through the string checking for spaces.
	' If there are unhandled spaces left, we handle them...
	Do While InStr(iPosition, strInput, " ", 1) <> 0
		' To begin with, we find the position of the offending space.
		iSpace = InStr(iPosition, strInput, " ", 1)
		
		' We uppercase (and append to our output) the first character after
		' the space which was handled by the previous run through the loop.
		strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
		
		' We lowercase (and append to our output) the rest of the string
		' up to and including the current space.
		strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))

		' Note:
		' The above line is something you may wish to change to not convert
		' everything to lowercase.  Currently things like "McCarthy" end up
		' as "Mccarthy", but if you do change it, it won't fix things like
		' ALL CAPS.  I don't see an easy compromise so I simply did it the
		' way I'd expect it to work and the way the VB command
		' StrConv(string, vbProperCase) works.  Any other functionality is
		' left "as an exercise for the reader!"
		
		' Set our location to start looking for spaces to the
		' position immediately after the last space.
		iPosition = iSpace + 1
	Loop

	' Because we loop until there are no more spaces, it leaves us
	' with the last word uncapitalized so we handle that here.
	' This also takes care of capitalizing single word strings.
	' It's the same as the two lines inside the loop except the
	' second line LCase's to the end and not to the next space.
	strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
	strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

	' That's it - Set our return value and exit
	PCase = strOutput
End Function
%>

Can I be so bold as to ask for some help in this regard?

Firstly, I would need to know if it is true that a hosting company requires a (paid) licence to operate jMail or whether I can force my hand and get them to enable it; this would be the easiest and fastest solution, as I would not need to make any changes.

Then, if I must change to CDOSYS, what modifications do I actually need to make to the scripting code to make it all work again?

I have asked two or three web developers for some (paid) help, but as they hear "non profit" and consider the time require to seek out the offending code, they have all turned me down saying "too busy"...

So, on suggestion of a caring iiNet Support Staffer, I thought this would be a good place to start... at least to get some clarity on the whole thing.

All help, guidance and suggestions are most gracefully accepted.

Cheers
Paul
Edited by - GPCasali on 21 March 2013 00:27:57
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20587 Posts
Posted - 21 March 2013 :  02:52:21  Show Profile  Visit HuwR's Homepage  Reply with Quote
unfortunately email_process.asp is not one of our forum files and appears to be hard coded specifically to use jmail, so changing a setting in the forum isn't going to make any difference whatsoever, that file ONLY works with Jmail.
MVC .net dev/test site | MVC .net running on Raspberry Pi
Go to Top of Page

GPCasali
Starting Member

Australia
8 Posts
Posted - 21 March 2013 :  03:21:20  Show Profile  Reply with Quote
Again thanks for the kind reply...

Great news then... we are in a pickle, only thing I can see would be to re-migrate back to the old hosting provider where everything was working fine!

Oh bother!

Cheers
Paul
Go to Top of Page

ruirib
Snitz Forums Admin

Portugal
26364 Posts
Posted - 21 March 2013 :  05:49:44  Show Profile  Send ruirib a Yahoo! Message  Reply with Quote
It doesn't seem incredibly hard to change this to work with CDOSYS. The reason for error seems clear, too, the server does not support JMail and the error occurs when creating the JMail object.

Don't have much time to spare, but if you have no alternative, drop me an email through the forum. I would need access to your files and web site, to test the replacement code.

Snitz 3.4 Readme | Like the support? Support Snitz too
Go to Top of Page

GPCasali
Starting Member

Australia
8 Posts
Posted - 25 March 2013 :  07:06:58  Show Profile  Reply with Quote
quote:
Originally posted by ruirib

It doesn't seem incredibly hard to change this to work with CDOSYS. The reason for error seems clear, too, the server does not support JMail and the error occurs when creating the JMail object.

Don't have much time to spare, but if you have no alternative, drop me an email through the forum. I would need access to your files and web site, to test the replacement code.

I don't know how to thank you, you are very kind!

Will keep trying this end, if no luck I may contact you, much appreciated!
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.14 seconds. Powered By: Snitz Forums 2000 Version 3.4.07