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: MOD Implementation
 Newsletter MOD not Sending		  New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

leatherlips
Senior Member

USA
1838 Posts
Posted - 01 February 2010 :  18:29:44  Show Profile  Visit leatherlips's Homepage
I have had the newsletter mod for awhile. It worked great. Today, I tried to send a newsletter and no one received it. After I clicked send it said it was sent successfully. Any ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Etymon
Advanced Member

United States
2396 Posts
Posted - 01 February 2010 :  20:06:53  Show Profile  Visit Etymon's Homepage
Check with your host to see how many e-mails they let go out in a batch at one time. Perhaps, they stopped the batch as a spam attempt.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 06 February 2010 :  20:17:49  Show Profile  Visit leatherlips's Homepage
I just contacted my host and they said they ran some tests and their system is not blocking the emails. They said it could be a setting in the Snitz Forum code.

When I send the newsletter, all of them come back to me with this error attached:

Reporting-MTA: dns;WH182.hosting.corp.gd
Received-From-MTA: dns;WH182.hosting.corp.gd
Arrival-Date: Mon, 1 Feb 2010 16:41:25 -0700

Final-Recipient: rfc822;Email of Recipient Here
Action: delayed
Status: 4.4.7
Will-Retry-Until: Wed, 3 Feb 2010 16:41:50 -0700


This used to work fine but now it won't. Any ideas?
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 13 March 2010 :  14:56:08  Show Profile  Visit leatherlips's Homepage
I'm still having trouble with the newsletter. All emails work within Snitz: registration, member to member, pm notifications, subscription notifications, etc... However, the newsletter will not send any emails.

What is different with the newsletter that is causing it not to work when all other email functions do? I'd really like to get this working again.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 17 March 2010 :  20:04:41  Show Profile  Visit leatherlips's Homepage
Since it seems very likely that my problem with the newsletter mod will not be fixed any time soon, can anyone recommend a good free asp newsletter script that they use? I don't want links to hotscripts or similar sites, I'd like first hand advice from ones that you use and like.

Thanks.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 18 March 2010 :  06:16:05  Show Profile  Visit AnonJr's Homepage
I gave up a long time ago and have been using a Google Group. I've been more than happy since. YMMV
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 18 March 2010 :  15:45:25  Show Profile
Do you want to post a text version of the nlEmail_List.asp (if text based) or the nlEmail_List_html.asp (if html based) files? The other thing to consider is did the hosting company apply patch upgrades to the server or change the Operating System all together.
Cheers,

David Greening
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 18 March 2010 :  16:05:31  Show Profile  Visit leatherlips's Homepage
Here is a text version of my nlEmail_List_html file:

http://www.mangionemagic.com/hostedpics/nlEmail_List_html.txt

Regarding what the hosting company did, I'm not sure. All I know is that moved me to a different server.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 18 March 2010 :  19:28:03  Show Profile
If you are using cdonts then it should work, but if you are using cdosys then you will need to add the following to the inc_mail_html.asp file and that should work:

	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.HTMLBody = "<HTML><BODY> " & strMessage & " </BODY></HTML>"
        	On Error Resume Next
		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


Let me know how you go as it had been a while since getting the Newsletter mod done.
Cheers,

David Greening
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 19 March 2010 :  09:00:06  Show Profile  Visit leatherlips's Homepage
Thank you!! It is working again! There was one error in the code you posted but after I removed the extra If Err <> 0 Then it worked beautifully!

Thank you, thank you, thank you!!
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2085 Posts
Posted - 19 March 2010 :  14:01:26  Show Profile
Glad that worked for you. Not sure why it was not included in the code when it was released, but fixed now.

Thanks for letting me know about the extra "If Err <> 0 Then", has been removed from the above code.

Enjoy...
Cheers,

David Greening
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 20 March 2010 :  19:22:57  Show Profile  Visit leatherlips's Homepage
On another topic regarding the Newsletter... Is it possible to create a Test button that only sends it to me? Sometimes I make a mistake in the letter layout but only after I've sent it to everyone on the list. If I had a "test" button then I could avoid some of those mistakes.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 20 March 2010 :  21:49:02  Show Profile
Sure, not hard to do. Something like this should handle it. Replace your "sendNewsletter.asp" with the below:
<%@ Language = VBScript %>
<!-- #include file = "variables.asp" -->
<%
if session("Newsletter") = false then
    response.redirect("index.asp")
end if
if Len(request.queryString("Subject")) = 0 then
    output = "Send newsletter"
end if
Subject = request.Form("Subject")
Message = request.Form("Message")
if Len(Message) <> 0 and Len(Subject) <> 0 then
    set objFSO = server.CreateObject("Scripting.FileSystemObject")
    set objTextStream = objFSO.OpenTextFile(server.mapPath("/newsletter/signature.txt"), 1)
    SignatureMessage = SignatureMessage & vbCrLf
    do while not objTextStream.AtendofStream
        SignatureMessage = SignatureMessage & objTextStream.ReadLine & vbCrLf
    loop
    Message = Message & SignatureMessage
    set con = server.CreateObject("AdoDB.Connection")
    con.Open = strServerConnection
    if not Request.QueryString("Admin") then
        sqlString = "Select Email from Newsletter Where Status = 1"
        set rs = con.Execute(sqlString)
        while not rs.EOF
            set newMailObj = server.CreateObject("CdoNTS.NewMail")
            newMailObj.BodyFormat = 1
            newMailObj.MailFormat = 0
            newMailObj.from = postmasterEmail
            newMailObj.To = rs("Email")
            newMailObj.subject = Subject
            newMailObj.body = Message & vbCrLf & "To remove yourself from our mailing list, please visit " & vbCrLf & "http://"&domainName&"/newsletter/remove.asp?email="&rs("Email")
            newMailObj.send
            set newMailObj = nothing
            rs.moveNext
        wend
    else
        set newMailObj = server.CreateObject("CdoNTS.NewMail")
        newMailObj.BodyFormat = 1
        newMailObj.MailFormat = 0
        newMailObj.from = postmasterEmail
        newMailObj.To = postmasterEmail
        newMailObj.subject = Subject
        newMailObj.body = Message & vbCrLf & "To remove yourself from our mailing list, please visit " & vbCrLf & "http://"&domainName&"/newsletter/remove.asp?email="&rs("Email")
        newMailObj.send
        set newMailObj = nothing
    end if
    output = "Newsletter sent successfully."
end if
%>
<html>
	<head>
		<!-- #BeginEditable "doctitle" -->
		<title><%=CompanyName%> Newsletter Administrative Center
		</title>
		<!-- #endEditable -->
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
		<link rel="stylesheet" href="styles.css" type="text/css">
	</head>
	<body bgcolor="#EEEEEE" text="#111111" link="#663366" vlink="#006699">
		<table width="95%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#003366">
			<tr bgcolor="#FFCCCC">
				<td colspan="2">
	 				<div align="center"><b><%=CompanyName%> - Newsletter Administrative Center</b>
	 				</div>
				</td>
 			</tr>
 			<tr bgcolor="#EEEEEE">
				<td width="25%" valign="top">
	 				<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor="#003366">
						<tr>
				 			<td bgcolor="#99CCCC">
								<div align="center"><b>Newsletter Control</b>
								</div>
				 			</td>
						</tr>
						<tr>
				 			<td bgcolor="#EEEEEE"> » <a href="listSubscribers.asp">List all subscribers</a><br>
								» <a href="inactive.asp">List inactive subscribers</a><br>
								» <a href="sendNewsletter.asp">Send newsletter</a><br>
								» <a href="sendNewsletter.asp?Admin=1">Send Test</a><br>
								» <a href="editSignature.asp?function=edit">Edit signature file</a><br>
								» <a href="logout.asp">Logout</a>
							</td>
						</tr>
	 				</table>
				</td>
				<td width="75%" valign="top">
					<div align="left"><br>
						<!-- #BeginEditable "contents" -->
						<script language = "javascript">
							function validateForm() {
								if (document.sendNewsletterForm.Subject.value == "") {
									alert("Please enter a subject.")
									document.sendNewsletterForm.Subject.focus()
								return false
								}
								if (document.sendNewsletterForm.Message.value == "") {
									alert("Please enter a message body.")
									document.sendNewsletterForm.Message.focus()
								return false
								}
							}
						</script>
					 	<div align="center">
							<p><b><%=output%></b></p>
							<form name="sendNewsletterForm" method="post" action="sendNewsletter.asp" onSubmit="return validateForm()">
					 			<table width="95%" border="0" cellspacing="1" cellpadding="1" bgcolor="#003366">
									<tr bgcolor="#EEEEEE">
				 						<td bgcolor="#EEEEEE" width="30%">Subject:
						 				</td>
						 				<td width="70%">
											<input type="text" name="Subject" size="40">
			 							</td>
									</tr>
									<tr bgcolor="#EEEEEE">
				 						<td bgcolor="#EEEEEE" width="30%">Message:
				 						</td>
						 				<td width="70%">
											<textarea name="Message" cols="40" rows="8" wrap="VIRTUAL">
											</textarea>
			 							</td>
									</tr>
									<tr bgcolor="#EEEEEE">
			 							<td bgcolor="#EEEEEE" width="30%"> 
				 						</td>
						 				<td width="70%">
											<input type="submit" name="submit" value="Send Newsletter">
				 						</td>
									</tr>
				 				</table>
							</form>
							<p> </p>
					 	</div>
					 	<!-- #endEditable -->
					</div>
					<p align="left"><br>
				</td>
			</tr>
		</table>
	</body>
	<!-- #endTemplate -->
</html>
Edited by - Carefree on 20 March 2010 22:23:32
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 21 March 2010 :  09:19:00  Show Profile  Visit leatherlips's Homepage
Carefree, the script you posted is radically different from my newsletter. What I want to do is add a new button to my existing newsletter page that when clicked only sends the newsletter to me.

For example:



The existing code I have for the newsletter is here: http://www.mangionemagic.com/hostedpics/nlEmail_List_html.txt

I would like the button to be placed as it is in the picture. I know how to make the button itself, but I don't know how to make it only send it to me.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 24 March 2010 :  18:14:52  Show Profile
See below.
Edited by - Carefree on 26 March 2010 14:36:37
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 24 March 2010 :  18:29:56  Show Profile  Visit leatherlips's Homepage
I've tried using it but I get this error:
Active Server Pages error 'ASP 0116' 

Missing close of script delimiter 

/forum/testnewsletter.asp, line 175 

The Script block lacks the close of script tag (%>).


Line 175 is in red below:

%>
      <!--#INCLUDE file="inc_post_buttons_html.asp" -->
<%
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.89 seconds. Powered By: Snitz Forums 2000 Version 3.4.07