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

Bearn 64

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


Bonne soirée
Bonjour Hecatonchire,

les liens ne fonctionnent pas "The resource you are looking for has been removed, had its name changed, or is temporarily unavailable."

A plus
 

TooFatBoy

XLDnaute Barbatruc
les liens ne fonctionnent pas "The resource you are looking for has been removed, had its name changed, or is temporarily unavailable."
A mon avis ce sont des URL comme dans ton code de #3. ;)

 

jurassic pork

XLDnaute Occasionnel
Hello,
apparemment le smtp de chez orange utilise le TLS comme protocole d'authentification ssl et je pense que cdo ne le gère pas :
smtpOrange.png


je suppose que si tu utilises cdo c'est que tu n'as pas outlook ? Quel client utilises-tu alors ? Avec thunderbird on peut envoyer des messages par une ligne de commande (donc on peut le faire en VBA) mais cela reste limité. Sinon cela est faisable aussi en PowerShell avec le module Send-MailKitMessage ou avec Le complément ExcelDna avec l'assemblage MailKit.
Moi aussi je suis chez Orange. J'ai fait un test avec un programme en python pour envoyer un mail :
Python:
import ssl
import smtplib

# Create an SSL context with TLSv1.2
ctx = ssl.SSLContext(ssl.PROTOCOL_TLSV1.2)
# Create a secure SMTP connection
with smtplib.SMTP_SSL('smtp.orange.fr', 465, context=ctx) as smtp:
    smtp.login('xxxxxx@orange.fr', 'yyyyyyyyyy')
# Construct the email message
    msg = f"Subject: Simple Email from Python\n\nCorps du message"
# Send the email
    smtp.sendmail('xxxxxx@orange.fr','zzzzzz@free.fr', msg)

Le message est bien envoyé et bien reçu.

Ami calmant, J.P
 

dysorthographie

XLDnaute Accro
Bonjour,
Il semblerait que orange n'ait pas renforcé sa sécurité comme Google, Microsoft, yahoo ;en tout cas c'est ce que j'ai lu.

Bon nombre de Fat sont passés en aouth2, cdo est capable de gérer cela mais le code est alambiqué et li faut obtenir une clé Api. J'ai tenté l'expérience à plusieurs reprises pour l'instant j'ai fait chou blanc.

De ce que j'ai compris Orange ne devrait pas être impacté.

Il est toujours possible de télécharger un serveur mail gratuit. C'est lui qui fait la liaison entre CDO et ton fat en respectant les règles de sécurité, et toi tu l'utilises via le port 25 ,ou autre ,avec ou sans authentification.
 

Hecatonchire

XLDnaute Nouveau
Bonjour Hecatonchire,

les liens ne fonctionnent pas "The resource you are looking for has been removed, had its name changed, or is temporarily unavailable."

A plus
Bonjour,

C'est effectivement les "propriétés" que j'ai en plus.

Dans ton code : ligne ajouré en gras

With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSendUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSendPassword

.Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI

A toi de préciser les valeurs pour strSendUserName et strSendPassword (a moins que tu ne le fasses ailleurs dans le code)
 

Bearn 64

XLDnaute Occasionnel
A mon avis ce sont des URL comme dans ton code de #3. ;)
Ok,
comment je les ajoutes SVP
Bonjour,

C'est effectivement les "propriétés" que j'ai en plus.

Dans ton code : ligne ajouré en gras

With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSendUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSendPassword

.Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI

A toi de préciser les valeurs pour strSendUserName et strSendPassword (a moins que tu ne le fasses ailleurs dans le code)
Re Hecatonchire,

Voila le module VBA
qui enregistre le fichier Excel "partie OK"

Puis envoi avec CDO et "erreur serveur"

Module z_fermer
Sub Fermer() 'Quitte Excel
ThisWorkbook.Save
Call EnvoiMail
Application.Quit
End Sub
'--------------------------- Envoi un mail
Sub EnvoiMail()
Dim MsgPerso As String, Sujet As String, nF As String
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
Const CdoTo = 1
Const CdoCc = 2
Const CdoBcc = 3
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Sauvegardes\GC " & Format(Now, "dd-mmm-yy hh mm") & ".xlsm"
Set Cdo_Message.Configuration = GetSMTPServerConfig()
With Cdo_Message
.To = "didierscv" & Chr(64) & "orange.fr"
.From = "patisserievidal" & Chr(64) & "orange.fr"
.Subject = "Fichier GC"
MsgPerso = "Bonjour," & "<BR>"
MsgPerso = MsgPerso & "Je te prie de trouver ci-joint le fichier excel" & "<BR>"
MsgPerso = MsgPerso & "Cordialement," & "<BR>" & "PatisSCV" & "<BR>" & "" & "<BR>" & "" & "<BR>"
.HTMLBody = MsgPerso
.AddAttachment (ThisWorkbook.Path & "\Sauvegardes\GC " & Format(Now, "dd-mmm-yy hh mm") & ".xlsm")
.CC = ""
.Send
End With
Set Cdo_Message = Nothing
End Sub
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(cdoSendUsingMethod) = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSendUserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSendPassword
.Item(cdoSMTPServer) = "smtp.orange.fr" 'ici le smtp fr votre FAI
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function


Merci de votre regard
 
Dernière édition:

Hecatonchire

XLDnaute Nouveau
Il faut préciser les valeurs strSendUserName et strSendPassword
strSendUserName : c'est l'adresse email servant à envoyer les emails (normalement une adresse chez orange)
par exemple > strSendUserName = "Bearn64@orange.fr"

strSendPassword : C'est généralement le même mot de passe que celui servant à la réception
par exemple > strSendPassword = "1234"
 

dysorthographie

XLDnaute Accro

 

Discussions similaires

Statistiques des forums

Discussions
314 863
Messages
2 113 647
Membres
111 930
dernier inscrit
fab_met