General Discussion

Print Page | Close Window

CHNANGE

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: General Discussion
Forum Description: General discussion and chat on any topic.
URL: https://forums.webwiz.net/forum_posts.asp?TID=2767
Printed Date: 29 March 2026 at 1:25pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: CHNANGE

Posted By: plamen
Subject: CHNANGE
Date Posted: 16 May 2003 at 12:54pm

i want change this source with CDONT

<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
   Dim objMail
   set objMail = server.createobject("SMTPsvg.Mailer")
   objMail.FromName = sFromEmail
   objMail.FromAddress = sFromEmail
   objMail.RemoteHost = sEmailServer
   objMail.AddRecipient sToEmail, sToEmail
   objMail.Subject = sSubject
   objMail.BodyText = sText
   if objMail.SendMail then
     SendEmail = ""
   else
      ' Message send failure
      SendEmail = objMail.Response
   end if
   Set objMail = nothing
End Function
%>

Replies:

Posted By: ljamal
Date Posted: 16 May 2003 at 1:11pm

I use this you can change the Sub to function and return something, but since it only sends email, I don't bother.

<%
     Sub SendEmail(strFrom, strTo, strSubject, strMsgTxt)
          Dim objMail
           Set objMail = Server.CreateObject("CDONTS.NewMail")
                objMail.From = strFrom
                objMail.Subject = strSubject
                objMail.To = strTo
                objMail.Body = strMsgTxt
                objMail.Send
               set objMail = nothing
     end Sub
%>

Posted By: plamen
Date Posted: 16 May 2003 at 4:00pm

yes i know but this is config file for ecards postcardmentor