Bonjour,
je ne parviens pas à envoyer un mail avec VB6 via hotmail.
Cela fonctionne parfaitement sous GMAIL en activant les applications externes, sauf que cette autorisation va s'arreter le 15.02.2021 (source)

J'ai donc essayé avec mon propre mail (domaine enregistré) et via un boite hotmail pour les deux ca ne fonctionne pas.
Sous hotmail j'ai bien activé le protocole le permettant (source)

Voyez vous une erreur dans mon code ?
Code :Sélectionner tout -Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim oCDO As Object
Set oCDO = CreateObject("CDO.Message")
With oCDO
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .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") = "587"
     .item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
     .item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxxxx@live.fr"
     .item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxxxxx"
    ' .item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
     .Update
    End With
  .From = Name
  .To = Name
  .Subject = "Ceci est un mail test !"
  .HtmlBody = "Bonjour cela fonctionne !"
   .Send
End With


Existe t'il une autre solution pour envoyer un mail via VB6 ?

merci