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: Mail Configuration
 is aspsmart email supported?
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

d3nnis
Starting Member

3 Posts

Posted - 01 March 2006 :  11:18:45  Show Profile  Visit d3nnis's Homepage
i try to edit myself on the codes but seems like its not working...

Podge
Support Moderator

Ireland
3776 Posts

Posted - 01 March 2006 :  11:46:55  Show Profile  Send Podge an ICQ Message  Send Podge a Yahoo! Message
Do you have a link to the website where you got the component?

Is no other component supported by your host ?

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

d3nnis
Starting Member

3 Posts

Posted - 01 March 2006 :  21:50:00  Show Profile  Visit d3nnis's Homepage
Hi Podge,
I owned this server, I got both aspsmart and jmail installed but seems like jmail is not working (not sure why) but I have another script using aspsmart working fine.

Link to this component :
http://www.aspsmart.com/aspSmartMail/

Here's what i change to the codes :
On admin_config_email.asp, I changed

Dim theComponent(20)
Dim theComponentName(20)
Dim theComponentValue(20)

to

Dim theComponent(21)
Dim theComponentName(21)
Dim theComponentValue(21)

Added theComponent(21) = "aspSmartMail.SmartMail" after theComponent(20) = "VSEmail.SMTPSendMail"

Added theComponentName(21) = "aspSmartMail" after theComponentName(20) = "VSEmail"

Added theComponentValue(21) = "aspsmartmail" after theComponentValue(20) = "vsemail"

On inc_mail.asp, I added the below to the select case statement

case "aspsmartmail"
Set objNewMail = CreateObject("aspSmartMail.SmartMail")
objNewMail.Server = strMailServer
objNewMail.SenderName = strFromName
objNewMail.SenderAddress = strSender
objNewMail.Recipients.Add strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
'on error resume next ' Ignore Errors
objNewMail.SendMail

Go to Top of Page
  Previous Topic Topic Next Topic  
 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.42 seconds. Powered By: Snitz Forums 2000 Version 3.4.07