<%@ Language=VBScript %>
<!--#in clude file="../includes/clubElec_scriptsAll.inc.asp"-->

<%  'ok = fsendMail5 ("sales", "sales@clubelec.com", "lala"," lala.joomla@gmail.com", "Andrana avec CDO.message", "manahoana ianareo", "", "", true, false, 48)
    'write_linebr "send status=" & ok
   ' response.end
   

Set Message =CreateObject("CDO.Message")
Message.Subject = "Andrana avec CDO.message"
Message.From = "sales@clubelec.com"
Message.To = "lala.joomla@gmail.com"
Message.CC = ""
Message.TextBody = "manahoana ianareo"

Dim Configuration
Set Configuration = CreateObject("CDO.Configuration")
Configuration.Load -1 ' CDO Source Defaults
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sales@clubelec.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "35SA92LES//la"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Configuration.Fields.Update

Set Message.Configuration = Configuration
Message.Send
   %>