Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 How to setup e-mail ?		  New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 3

Running925
Starting Member

USA
28 Posts
Posted - 01 February 2010 :  13:51:40  Show Profile  Visit Running925's Homepage
Hey guys i've looked around a little bit but i can't seem to find my exact problem.

My members are unable to e-mail eachother. When you click the e-mail button, it pulls up the window, and you can click send, and it tells you that it was sent. There does not appear to be any problem on the users side but the e-mail never comes through.

My domain & e-mail are setup through godaddy and i'm hosting the site on my own windows server with IIS.

I'm asuming that i just don't have my e-mail info setup properly.

Any someone tell me what i've done wrong.

Thanks

AnonJr
Moderator

United States
5768 Posts
Posted - 01 February 2010 :  15:40:39  Show Profile  Visit AnonJr's Homepage
Check and see if your host requires authentication. There are numerous posts on how to set it up if they do.
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 01 February 2010 :  23:12:29  Show Profile  Visit Running925's Homepage
I keep going through different threads on here and coming up empty. Many of the threds that i've found never show the end result and i didn't wanna start pulling a bunch of them back from the dead.
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20600 Posts
Posted - 02 February 2010 :  02:15:43  Show Profile  Visit HuwR's Homepage
unfortunately it could be one of many things that is the problem, although we do get more email issues from godaddy than any other.

Try working through the suggestions in this post http://forum.snitz.com/forum/topic.asp?TOPIC_ID=67328 one of them should work.
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 02 February 2010 :  16:07:24  Show Profile  Visit Running925's Homepage
i've gone through the thread you've suggested and i'm still stuck.

Is it possible that there is something wrong with my web server?

Windows 2k
IIS

my inc_mail.asp

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

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
		With Flds
        	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" 'strMailServer
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "support@youngstownracing.com"
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
		End With
        	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
		Set Flds = nothing
		Set iConf = nothing
		Set objNewMail = nothing
		
	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
%>
Edited by - Podge on 03 February 2010 09:40:44
Go to Top of Page

Podge
Support Moderator

Ireland
3776 Posts
Posted - 02 February 2010 :  17:28:38  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
quote:
You do not need to use a username and password for this server.

http://help.godaddy.com/article/955

Try removing these lines (they shouldn't be needed).

		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "support@youngstownracing.com"
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

so you end up with this

		'Set and update fields properties
		With Flds
        	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" 'strMailServer
		End With
        	Flds.Update
Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 02 February 2010 :  19:25:23  Show Profile  Visit Running925's Homepage
quote:
Originally posted by Podge

quote:
You do not need to use a username and password for this server.

http://help.godaddy.com/article/955

Try removing these lines (they shouldn't be needed)



I made this change, tested sending an e-mail, still no errors and nothing comes through into the e-mail box....
Edited by - Running925 on 02 February 2010 19:26:17
Go to Top of Page

Podge
Support Moderator

Ireland
3776 Posts
Posted - 02 February 2010 :  20:00:49  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Try this and see if any errors are raised in your browser.
	case "cdosys"
	        on error goto 0
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
		With Flds
        	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" 'strMailServer
		End With
        	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
		Set Flds = nothing
		Set iConf = nothing
		Set objNewMail = nothing


Can you try to send an email through the forum using a member account that has an email address from your domain? i.e. register an account with the email address support @ young stown racing.com and try to send an email to another member using that account.
Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 02 February 2010 :  23:32:28  Show Profile  Visit Running925's Homepage
I just attemped that code change podge, and it basicly took down the whole forum, i coudln't even load the index, so i undo the change.

It gave me an "http 500" error

btw, my admin account "running925" on there is assigned the support@youngstownracing.com e-mail address. and i've been using that user and trying to send to my self, via the e-mail link the forum. That is how i've been testing.
Edited by - Running925 on 02 February 2010 23:33:41
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20600 Posts
Posted - 03 February 2010 :  03:14:42  Show Profile  Visit HuwR's Homepage
http 500 errors could be your browser, if you are using IE you need to turn off 'freindly httperror messages' in Tools|internet options| Advanced
Go to Top of Page

Podge
Support Moderator

Ireland
3776 Posts
Posted - 03 February 2010 :  08:15:35  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
I agree with HuwR. Something in inc_mail.asp is causing an error but its not being shown to you because your browser is masking it.
Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 03 February 2010 :  09:32:02  Show Profile  Visit Running925's Homepage
ok, i turned off "friendly error messages" and tested again. error reads

Microsoft VBScript compilation error '800a03fe'

Expected 'Select'

/forum/inc_mail.asp, line 149

End if
----^


I had to change it back because i don't want my board to be down.

Thoughts?
Go to Top of Page

Podge
Support Moderator

Ireland
3776 Posts
Posted - 03 February 2010 :  09:42:44  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Can you paste your current inc_mail.asp as a txt file ?
Podge.

The Hunger Site - Click to donate free food | My Blog | Snitz 3.4.05 AutoInstall (Beta!)

My Mods: CAPTCHA Mod | GateKeeper Mod
Tutorial: Enable subscriptions on your board

Warning: The post above or below may contain nuts.
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20600 Posts
Posted - 03 February 2010 :  10:23:42  Show Profile  Visit HuwR's Homepage
seems to me that you may have inadvertantly deletd or commented out the wrong line
Go to Top of Page

Running925
Starting Member

USA
28 Posts
Posted - 03 February 2010 :  11:00:03  Show Profile  Visit Running925's Homepage 


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

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"
	        on error goto 0
	        Set iConf = Server.CreateObject ("CDO.Configuration")
        	Set Flds = iConf.Fields 

	        'Set and update fields properties
		With Flds
        	.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
	        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" 'strMailServer
		End With
        	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
		Set Flds = nothing
		Set iConf = nothing
		Set objNewMail = nothing
		End if
		Set Flds = nothing
		Set iConf = nothing
		Set objNewMail = nothing
		
	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
%>
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20600 Posts
Posted - 03 February 2010 :  11:34:39  Show Profile  Visit HuwR's Homepage
looks like you may have an extraEnd If, I have highlighted it red in your post (in the cdosys section)
Go to Top of Page
Page: of 3 Previous Topic Topic Next Topic  
Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.46 seconds. Powered By: Snitz Forums 2000 Version 3.4.07