EMail Issue

Snitz™ Forums 2000
https://forum.snitz.com/forumTopic/Posts/71053?pagenum=1
05 November 2025, 16:53

Topic

Carefree
EMail Issue
26 September 2015, 18:06


Here's an excerpt from a program. Using the same "inc_mail.asp" which the forum uses (successfully) and the same server and email addresses, for some reason this won't send the mail. Any ideas?
Code:

			Dim Err_Msg, strFrom, strFromName, strMailServer, strMailMode, strRecipients, strRecipientsName, strSender, strSubject, strMessage
			Err_Msg = "" : strMailServer = "(server address is here)" : strRecipients = "(email address is here)"
			strFrom = strRecipients
			strFromName = "Craig"
			strRecipientsName = "Craig"
			strSender = strRecipients
			strSubject = "New Comment"
			strMessage = "A new comment requiring approval was posted on " & Now() & vbNewLine & vbNewLine
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%

 

Replies ...

huwsnitz
27 September 2015, 06:41


could for any of lots of reasons I'm afraid. Are you trying to run the script on the same server as the working forum that sends mail successfully?
Carefree
27 September 2015, 07:59


Yes. Same server, same site.
Webbo
27 September 2015, 15:32


Does the server require authentication for emails sent via smtp and as the script isn't giving the authentication details it is functioning but not sending?
Carefree
27 September 2015, 15:43


Nope, that's not it. The same include is used for both, functions from the forum, as is.
HuwR
28 September 2015, 13:03


do you use a local mail server? would need to see mail server logs to determine if it got the email and what it did with it
Classicmotorcycling
28 September 2015, 16:53


Just a quick question, given that the page that you are using is outside of the Snitz Forum software from what you wrote, how does it know which mail component to use from the inc_mail.asp file to send mail? Or is it in the bounds of the forum software?
Carefree
28 September 2015, 20:27


@HuwR - No, it's on a hosted server. No access to the logs.
@Classic - the mail component is specified at the top of the include. That's the only change to the file. I also tested it by embedding the case procedure (see below) directly into this file, no change.
Code:

			Dim Err_Msg, strFrom, strFromName, strMailServer, strMailMode, strRecipients, strRecipientsName, strSender, strSubject, strMessage
			Err_Msg = "" : strMailServer = "(server address is here)" : strRecipients = "(email address is here)"
			strFrom = strRecipients
			strFromName = "Craig"
			strRecipientsName = "Craig"
			strSender = strRecipients
			strSubject = "New Comment"
			strMessage = "A new comment requiring approval was posted on " & Now() & vbNewLine & vbNewLine
			Set iConf = Server.CreateObject ("CDO.Configuration")
			Set Flds = iConf.Fields
			Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
			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") = ""
			Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
			Flds.Update
			Set objNewMail = Server.CreateObject("CDO.Message")
			Set objNewMail.Configuration = iConf
			Err.Clear
			objNewMail.To = strRecipients
			objNewMail.From = strSender
			objNewMail.Subject = strSubject
			objNewMail.TextBody = strMessage
			objNewMail.Send
			On Error Resume Next
			If Err <> 0 Then
				Response.Write	"<p align=""center""><font color=""white""><ul><li>Your request was not sent due to the following error: " & Err.Description & "</li></ul></font></p></body></html>"
				Response.End
			Else
				Response.Redirect	"sign.asp"
			End If

Found the issue. On another server, it works just fine. There's apparently a mail back-log or denial of service going on at test site.
© 2000-2021 Snitz™ Communications