Put the following code into your function :

            set cdoMessage = Server.CreateObject("CDO.Message")
            set cdoConfig = Server.CreateObject("CDO.Configuration")
         
          cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="127.0.0.1"
          cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
          cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
            cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2         
           
            cdoConfig.Fields.Update
            set cdoMessage.Configuration = cdoConfig
            cdoMessage.From =  fromAddr
            cdoMessage.To = recipients
            cdoMessage.Subject = subject
            cdoMessage.HtmlBody = body
            on error resume next
            cdoMessage.Send
            if Err.Number < > 0 then
                SendMail = "Email send failed: " & Err.Description & "."
            end if
            set cdoMessage = Nothing
            set cdoConfig = Nothing