Dim iConf As Object
Dim Flds
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "toto@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Update
End With
strbody = "Validation " & Region & "." & vbNewLine & vbNewLine & _
"Cordialement" & vbNewLine & vbNewLine
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "" & Email & ""
.cc = "" & Emailcc & ""
.From = "nepasrepondre@gmail.com"
.Subject = "Validation " & Region
.TextBody = strbody
.AddAttachment (ThisWorkbook.Path & "/validation " & Region & " au " & date_valid & ".xlsx")
.Send
End With