Note: You must be registered in order to post a reply. To register, click here. Registration is FREE! Before posting, make sure you have read this topic!
T O P I C R E V I E W
Carefree
Posted - 26 September 2015 : 18:06:54 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?
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" --> <%
7 L A T E S T R E P L I E S (Newest First)
Carefree
Posted - 28 September 2015 : 20:27:07 @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.
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.
Classicmotorcycling
Posted - 28 September 2015 : 16:53:13 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?
HuwR
Posted - 28 September 2015 : 13:03:53 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
Carefree
Posted - 27 September 2015 : 15:43:06 Nope, that's not it. The same include is used for both, functions from the forum, as is.
Webbo
Posted - 27 September 2015 : 15:32:30 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
Posted - 27 September 2015 : 07:59:01 Yes. Same server, same site.
huwsnitz
Posted - 27 September 2015 : 06:41:29 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?