Erreur .send email

bonjour j'ai une macro qui ne fonctionne plus je comprends pas pourquoi

j'ai besoin de votre aide

Merci

Sub CDO_Mail_Small_Text_2()

Application.ScreenUpdating = False

Dim iMsg As Object, iConf As Object, strbody$, fichier$

Dim Flds As Variant, t, Destinataires$

fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"

ActiveWorkbook.Sheets("feuil1").Copy

ActiveWorkbook.SaveAs Filename:=fichier

Workbooks("j1.xls").Close True 'sans sauvegarde (True si sauvegarde)

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults

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") = "info@gmail.com"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mot passe"

.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

Sheets("feuil1").Select

Range("A1").Select

t = Range("A1:A15")

Destinataires = Join(Application.Transpose(t), ";")

strbody = "Bonjour, !"

With iMsg

Set .Configuration = iConf

.To = "mon email"

.cc = Destinataires

.BCC = ""

.From = """message"" <mon email>"

.Subject = "test"

.TextBody = strbody

.AddAttachment fichier

.Send

Kill fichier

Bonjour,

Si tu n'as rien changé, c'est alors dû aux évolutions de sécurité de gmail.

Va voir dans ta messagerie si gmail ne te demande pas de diminuer le niveau de sécurité / confidentialité !

Salut arnaud, salut Steelson,

sinon essaie comme ca

Sub CDO_Mail_Small_Text_2()
Application.ScreenUpdating = False
Dim iMsg As Object, iConf As Object, strbody$, fichier$
Dim Flds As Variant, t, Destinataires$

fichier = ThisWorkbook.Path & Application.PathSeparator & "j1.xls"
ActiveWorkbook.Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:=fichier
Workbooks("j1.xls").Close True 'sans sauvegarde (True si sauvegarde)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/config ... smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
.Item("http://schemas.microsoft.com/cdo/config ... ndusername") = "info@gmail.com"
.Item("http://schemas.microsoft.com/cdo/config ... ndpassword") = "mot passe"
.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/config ... serverport") = 465
.Update
End With
Sheets("feuil1").Select
Range("A1").Select
t = Range("A1:A15")
Destinataires = Join(Application.Transpose(t), ";")
strbody = "Bonjour, !"
With iMsg
Set .Configuration = iConf
.To = "mon email"
.cc = Destinataires
.BCC = ""
.From = """message"" <mon email>"
.Subject = "test"
.TextBody = strbody
.AddAttachment fichier
'.Send
.Display
Application.SendKeys "%s"
Kill fichier

bonne nuit

Bonjour

ça fonctionne Merci a vous

bonne journée