XL 2010 Envoi email avec piece jointe avec CDO erreur 550...

[Bearn 64]

Bonsoir le forum,
Depuis peu j'ai un message d'erreur "voir piece jointe"
Blocage au moment de l'envoi.
Depuis adresse orange vers adresse orange.

Merci pour votre regard.

 

[wDog66]

Bonsoir Bearn 64

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)

 

[Bearn 64]

Bonsoir a vous,

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

 

[wDog66]

Re,

Il faudra peut-être essayé avec le port 587 avec authentification, mais dans le code, je ne sais pas comment ont fait 🥴

Paramètres POP, IMAP et SMTP pour Outlook.com - Support Microsoft

En savoir plus sur les paramètres POP, IMAP et SMTP pour Outlook

support.microsoft.com

 

[Bearn 64]

Re

.Item(cdoSMTPServerPort) = 587

Déjà fait meme message d'erreur

 

[TooFatBoy]

Hi,

T'as essayé avec 465 ?

 

[kiki29]

Salut, à télécharger puis consulter/adapter à ton contexte : Liste Contributions PDF
voir post 187 ? ( sans certitude )

 

[Bearn 64]

Re
Le message d'erreur est different. Le transport a echoué dans la connexion au serveur

 

[TooFatBoy]

Le message initial disait "authentification requise".
Peut-être simplement un problème d'identifiant ou de mot de passe.

 

[Bearn 64]

Le message initial disait "authentification requise".
Peut-être simplement un problème d'identifiant ou de mot de passe.

Rien n'as changé depuis.

 

[TooFatBoy]

Quelles réponses énigmatiques... 😕


Bonne soirée
@+

 

[Bearn 64]

Quelles réponses énigmatiques... 😕


Bonne soirée
@+

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.

 

[TooFatBoy]

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.

 

[Bearn 64]

Cela a ete ma démarche premiere mais en VBA cela n'as pas ete concluant.

 

[Hecatonchire]

Bonjour,

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

http://schemas.microsoft.com/cdo/configuration/smtpusessl

http://schemas.microsoft.com/cdo/configuration/sendusername

http://schemas.microsoft.com/cdo/configuration/sendpassword

Bonne soirée