Je pense que bon nombre de personnes qui utilisait cette méthode vont être TRES embêtées
En effet, Microsoft à renforcé son système d'authentification !
A ma connaissance, nous ne pouvons plus, par exemple, utiliser leur serveur POP et SMTP il faut passer par Exchange
La solution, installer Outlook qui reste gratuit (pour le moment)
Function GetSMTPServerConfig() As Object
' Microsoft CDO for Windows 2000 Library
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Dim Cdo_Config As Object 'New CDO.Configuration
Set Cdo_Config = CreateObject("CDO.Configuration")
Dim Cdo_Fields As Object
Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI .Item(cdoSMTPServerPort) = 25
.Update
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function
La derniere utilisation date du 21/10/2024. Et a fonctionnée.
Depuis rien n'as ete modifié dans la macro.
L'erreur est arrivée voilà une semaine n'ayant pas trouvé de solution je me tourne vers le forum.
Perso, sans parler ici l'Excel, j'utilise Outlook.
Il y a quelques semaines, sans rien changer dans Outlook, u jour au lendemain je ne pouvais plus envoyer de mails.
J'ai modifié un port SMTP et c'est reparti.
N'étant pas chez orange je ne peux pas tester mais avec 2 autres fournisseurs ça fonctionnait encore la semaine dernière (sous Word).
Je précise en plus l'authentification SSL, le nom de l'expéditeur et le mot de passe