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.
Hey Everyone,
We have taken over IT Services for a Company that utilizes Snitz Forums. We have configured their Exchange to relay through our Spam Titan Appliance. Since doing so no external users are not receiving email notifications. Internal also only appears to work for a selected few employees.
We have edited the mail Server Configuration in the forum and have updated IIS to point to our Spam Titan.
We have no experience/documentation on how email is setup with this Forum. I have browsed through some threads and looked at some .asp files however its all jibberish and I didn't see anything that pointed to their old server that we needed to change.
My question is were else would email settings need to be changed? The forum is version: [Snitz Forums 2000 Version 3.4.05] and using JMail4.x as well CDOSYS is listed.
Thank you.
We have taken over IT Services for a Company that utilizes Snitz Forums. We have configured their Exchange to relay through our Spam Titan Appliance. Since doing so no external users are not receiving email notifications. Internal also only appears to work for a selected few employees.
We have edited the mail Server Configuration in the forum and have updated IIS to point to our Spam Titan.
We have no experience/documentation on how email is setup with this Forum. I have browsed through some threads and looked at some .asp files however its all jibberish and I didn't see anything that pointed to their old server that we needed to change.
My question is were else would email settings need to be changed? The forum is version: [Snitz Forums 2000 Version 3.4.05] and using JMail4.x as well CDOSYS is listed.
Thank you.
نوشته شده در
Hello,
In my opinion your forum version is already very old version 3.405. I suggest you install the 3407 version, and also update on this version you will find here: http://forum.snitz.com/forum/forum.asp?FORUM_ID=118
Then to the right mail server configuration in the admin panel of your forum and test.
Here is my forum with extra mods and email function is set to ASPEmail, check that the email components are installed on your server. My forum http://www.chatquiz.org
In my opinion your forum version is already very old version 3.405. I suggest you install the 3407 version, and also update on this version you will find here: http://forum.snitz.com/forum/forum.asp?FORUM_ID=118
Then to the right mail server configuration in the admin panel of your forum and test.
Here is my forum with extra mods and email function is set to ASPEmail, check that the email components are installed on your server. My forum http://www.chatquiz.org
نوشته شده در
The file that matters to you is inc_mail.asp.
نوشته شده در
Thanks for the replies,
Maxime - As for updating this is not an option as they stat they have many custom forms on the site which will not work with the new version as they have already looked into it.
ruirib - I have taken a look at the inc_mail.asp and I did not see anything referencing their old email. I will post it below, what would i need to edit? I assume Jmail4x?
Maxime - As for updating this is not an option as they stat they have many custom forms on the site which will not work with the new version as they have already looked into it.
ruirib - I have taken a look at the inc_mail.asp and I did not see anything referencing their old email. I will post it below, what would i need to edit? I assume Jmail4x?
Code:
if trim(strFromName) = "" then
strFromName = strForumTitle
end if
select case lcase(strMailMode)
case "abmailer"
Set objNewMail = Server.CreateObject("ABMailer.Mailman")
objNewMail.ServerAddr = strMailServer
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.SendTo = strRecipients
objNewMail.MailSubject = strSubject
objNewMail.MailMessage = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "aspemail"
Set objNewMail = Server.CreateObject("Persits.MailSender")
objNewMail.FromName = strFromName
objNewMail.From = strSender
objNewMail.AddReplyTo strSender
objNewMail.Host = strMailServer
objNewMail.AddAddress strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
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
case "aspmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
'objNewMail.AddReplyTo = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
on error resume next '## Ignore Errors
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & objNewMail.Response & "</li>"
End if
case "aspqmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.QMessage = 1
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
case "chilicdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
on error resume next '## Ignore Errors
objNewMail.Host = strMailServer
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
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
on error resume next '## Ignore Errors
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.TextBody = strMessage
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
case "dkqmail"
Set objNewMail = Server.CreateObject("dkQmail.Qmail")
objNewMail.FromEmail = strSender
objNewMail.ToEmail = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.CC = ""
objNewMail.MessageType = "TEXT"
on error resume next '## Ignore Errors
objNewMail.SendMail()
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "dundasmailq"
set objNewMail = Server.CreateObject("Dundas.Mailer")
objNewMail.QuickSend strSender, strRecipients, strSubject, strMessage
on error resume next '##Ignore Errors
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "dundasmails"
set objNewMail = Server.CreateObject("Dundas.Mailer")
objNewMail.TOs.Add strRecipients
objNewMail.FromAddress = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '##Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "freemailsender"
set objNewMail = Server.CreateObject("Innoveda.MailSender")
NoLoginMethod=0
CramMD5Method=1
AuthLoginMethod=2
LoginPlainMethod=3
objNewMail.Username = "username"
objNewMail.Password = "password"
objNewMail.LoginMethod = NoLoginMethod
objNewMail.FromName = strFromName
objNewMail.From = strSender
'objNewMail.AddReplyTo strSender
objNewMail.Host = strMailServer
objNewMail.To = strRecipients
'objNewMail.CC = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
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
case "geocel"
set objNewMail = Server.CreateObject("Geocel.Mailer")
objNewMail.AddServer strMailServer, 25
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.FromName = strFromName
objNewMail.FromAddress = strFrom
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send()
if Err <> 0 then
Response.Write "Your request was not sent due to the following error: " & Err.Description
else
Response.Write "Your mail has been sent..."
end if
case "iismail"
Set objNewMail = Server.CreateObject("iismail.iismail.1")
MailServer = strMailServer
objNewMail.Server = strMailServer
objNewMail.addRecipient(strRecipients)
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
on error resume next '## Ignore Errors
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
case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = strMailServer
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "jmail4"
Set objNewMail = Server.CreateObject("Jmail.Message")
'objNewMail.MailServerUserName = "myUserName"
'objNewMail.MailServerPassword = "MyPassword"
objNewMail.From = strSender
objNewMail.FromName = strFromName
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send(strMailServer)
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "mdaemon"
Set gMDUser = Server.CreateObject("MDUserCom.MDUser")
mbDllLoaded = gMDUser.LoadUserDll
if mbDllLoaded = False then
response.write "Could not load MDUSER.DLL! Program will exit." & "<br />"
else
Set gMDMessageInfo = Server.CreateObject("MDUserCom.MDMessageInfo")
gMDUser.InitMessageInfo gMDMessageInfo
gMDMessageInfo.To = strRecipients
gMDMessageInfo.From = strSender
gMDMessageInfo.Subject = strSubject
gMDMessageInfo.MessageBody = strMessage
gMDMessageInfo.Priority = 0
gMDUser.SpoolMessage gMDMessageInfo
mbDllLoaded = gMDUser.FreeUserDll
end if
if Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
end if
case "ocxmail"
Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
recipient = strRecipients
sender = strSender
subject = strSubject
message = strMessage
mailserver = strMailServer
on error resume next '## Ignore Errors
result = objNewMail.SendMail(mailserver, recipient, sender, subject, message)
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "ocxqmail"
Set objNewMail = Server.CreateObject("ocxQmail.ocxQmailCtrl.1")
mailServer = strMailServer
FromName = strFromName
FromAddress = strSender
priority = ""
returnReceipt = ""
toAddressList = strRecipients
ccAddressList = ""
bccAddressList = ""
attachmentList = ""
messageSubject = strSubject
messageText = strMessage
on error resume next '## Ignore Errors
objNewMail.Q mailServer, _
fromName, _
fromAddress, _
priority, _
returnReceipt, _
toAddressList, _
ccAddressList, _
bccAddressList, _
attachmentList, _
messageSubject, _
messageText
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "sasmtpmail"
Set objNewMail = Server.CreateObject("SoftArtisans.SMTPMail")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.AddRecipient strRecipientsName, strRecipients
'objNewMail.AddReplyTo strSender
objNewMail.BodyText = strMessage
objNewMail.organization = strForumTitle
objNewMail.Subject = strSubject
objNewMail.RemoteHost = strMailServer
on error resume next
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & objNewMail.Response & "</li>"
End if
case "smtp"
Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
objNewMail.MailServer = strMailServer
objNewMail.Recipients = strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.Message = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail2
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "vsemail"
Set objNewMail = CreateObject("VSEmail.SMTPSendMail")
objNewMail.Host = strMailServer
objNewMail.From = strSender
objNewMail.SendTo = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Connect
objNewMail.Send
objNewMail.Disconnect
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
end select
Set objNewMail = Nothing
on error goto 0
%>