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

Bearn 64

XLDnaute Occasionnel
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.
 

Pièces jointes

  • erreur.jpg
    erreur.jpg
    20.2 KB · Affichages: 9

wDog66

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Hecatonchire

XLDnaute Nouveau

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 863
Messages
2 113 659
Membres
111 932
dernier inscrit
remixxx