Envois de mail avec CDO

Bonjour le code suivant ne produit pas d'erreur, il s’exécute jusqu'au
bout mais le mail ne parvient pas Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim FichiersJoints$
On Error Resume Next
Workbooks("Reg.xlsx").Save
Workbooks("Reg.xlsx").Close
Application.EnableEvents = True
Application.EnableEvents = False
FichiersJoints = "C:\Users\Fred\Documents\Reg.xlsx"
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "smtp.office365.com"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= "1"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") "XXX@live.fr"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "MDP"
'
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
.Update
End With
Set iMsg = CreateObject("CDO.Message")

With iMsg
Set .Configuration = iConf
.To = "XXX@live.fr"
.CC = ""
.BCC = ""
.From = "XXX@live.fr"
.AddAttachment FichiersJoints

.Subject = "Sauvegarde de Reg.xlsx"
.Send
End With
If Err.Number > 0 Then
MsgBox ("N° d'erreur " & Err.Number)
End If
Workbooks.Open "Reg.xlsx"

Set Flds = Nothing
Set iMsg = Nothing
Application.ScreenUpdating = True
Application.EnableEvents = True
End SubÍ  son destinataire, pb de MDP?