This is Richard Kinsers code, I take no credit, I'd just like to see it in the next release.
Add to [inc_mail.asp] case "sa-smtp" 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
Add to admin_config_email.asp between lines 126 & 135 <option value="sa-smtp"<%if (lcase(strMailMode)="sa-smtp" or lcase(MailMode)="sa-smtp") then response.write(" selected") end if%>>SA-SMTP</option>
SA-SMTPMail support was added with the v3.1 sr5 a7 release, and will be included with v3.2 when it's released. There is also a new admin_config_email.asp that only allows you to choose the components currently installed on your server the rest won't show up.
Topic Locked
Posted - 18 December 2000 : 19:40:03
