<%@ Language=VBScript %> <% Dim objCDO Set objCDO = CreateObject("CDO.Message") objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.comm" objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sales@clubelec.com" objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Ales210318-10@20" objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendtls") = True objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false objCDO.Configuration.Fields.Update objCDO.Subject = "Andrana avec CDO.objCDO" objCDO.From = "lala@clubelec.com" objCDO.To = "lala.joomla@gmail.com" objCDO.CC = "" objCDO.TextBody = "manahoana ianareo" objCDO.Send %>