EMail Issue - Snitz™ Forums 2000

The Forum has been Updated

The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.

EMail Issue - Posted 26 Sep 2015 18:06 (1343 Views)

Carefree

Advanced Member

Posts: 4224

4224

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" -->
			<%

Posted 27 Sep 2015 06:41

huwsnitz

Starting Member

Posts: 5

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?

Posted 27 Sep 2015 07:59

Carefree

Advanced Member

Posts: 4224

4224

Yes. Same server, same site.

Posted 27 Sep 2015 15:32

Webbo

Average Member

Posts: 982

982

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?

Posted 27 Sep 2015 15:43

Carefree

Advanced Member

Posts: 4224

4224

Nope, that's not it. The same include is used for both, functions from the forum, as is.

Posted 28 Sep 2015 13:03

HuwR

Forum Admin

Posts: 20611

20611

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

MVC .net dev/test site | Snitz .NET Core running on Raspberry Pi

Posted 28 Sep 2015 20:27

Carefree

Advanced Member

Posts: 4224

4224

@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.

Last edited by Carefree on 28 September 2015, 21:35