XL 2013 Envoi mail via CDO

Private Sub CDO_Mail_Small_Text()
'test envoi mail fonctionne pas toujours
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
' essai gmail  OUI
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXXX@gmail.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse"
'  .Update 'Let CDO know we have changed the default configuration for this message


   'essai orange OUI

 
    'hotmail NON
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'possibles 25, 465, 587
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXXX@hotmail.fr"
'  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse"
'  .Update 'Let CDO know we have changed the default configuration for this message
 

End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
      "This is line 1" & vbNewLine & _
      "This is line 2" & vbNewLine & _
      "This is line 3" & vbNewLine & _
      "This is line 4"

With iMsg
  Set .Configuration = iConf
    .To = "XXXX@xlpourtpme.fr"
    .CC = ""
    .BCC = ""
    .From = "XXXX@aliceadsl.fr"
    .Subject = "test"
    .TextBody = strbody
    .Send
End With

End Sub