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 - نوشته شده در 26 Sep 2015 (1349 Views)

Carefree

Advanced Member

مطلب: 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" -->
			<%

نوشته شده در 27 Sep 2015

huwsnitz

Starting Member

مطلب: 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?

نوشته شده در 27 Sep 2015

Carefree

Advanced Member

مطلب: 4224

4224

Yes. Same server, same site.

نوشته شده در 27 Sep 2015

Webbo

Average Member

مطلب: 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?

نوشته شده در 27 Sep 2015

Carefree

Advanced Member

مطلب: 4224

4224

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

نوشته شده در 28 Sep 2015

HuwR

Forum Admin

مطلب: 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

نوشته شده در 28 Sep 2015

Carefree

Advanced Member

مطلب: 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.

آخرین ویرایش توسط