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 ?
Existe t'il une autre solution pour envoyer un mail via VB6 ?
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
merci
Partager