Snitz Forums 2000 - RD: rkMail support...

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/Code)

RD: rkMail support...

New Topic

Topic Locked

Printer Friendly

Author

Topic

SheepCow
Starting Member

United Kingdom
3 Posts

Posted - 12 September 2000 : 18:33:21

I use rkMail and I'm sure others do, so open up your inc_mail.asp file and add:

case "rkmail"
Set objNewMail = Server.CreateObject("rkMail.SMTP")
objNewMail.AddSMTPHost strMailServer
objNewMail.FromAddress = strSender
objNewMail.FromName = "yoursitename"
objNewMail.Subject = strSubject
objNewMail.AddRecipient "Forumer", strRecipients
objNewMail.TextBody = strMessage

on error resume next '## Ignore Errors
If Not objMail.SendMail Then
Err_Msg = Err_Msg & "<li>An email could not be sent, please check the email address.</li>"
End If

Then add this into your admin_config_email.asp

Find:
<option value="iismail"<% if (lcase(strMailMode)="iismail" or lcase(MailMode)="iismail") then Response.Write(" selected") %>>IISMail</option>
<option value="jmail"<% if (lcase(strMailMode)="jmail" or lcase(MailMode)="jmail") then Response.Write(" selected") %>>JMail</option>
<option value="smtp"<% if (lcase(strMailMode)="smtp" or lcase(MailMode)="smtp") then Response.Write(" selected") %>>SMTP</option>

them and add:

<option value="rkmail"<% if (lcase(strMailMode)="rkmail" or lcase(MailMode)="rkmail") then Response.Write(" selected") %>>rkMail</option>

And voila, it works!

SheepCow
Starting Member

United Kingdom
3 Posts

Posted - 13 September 2000 : 13:28:46

I made a small mistake in that ;(

Replace:
If Not objMail.SendMail Then

with:
If Not objNewMail.SendMail Then