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.

 

[Bearn 64]

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

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]

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.

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

 

[jurassic pork]

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 :

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 :

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]

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]

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]

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

 

[Hecatonchire]

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]

Un composant activeX ne peut pas créer un objet - Macros et VBA Excel

Je viens d'installer OUTLOOK 2007 pour automatiser l'envoi de mail pour mon association 1901, j'ai installé la reférence "Outlook 12.0 Object Library" j'ai recopié de l' aide DVP ce début de code Code

www.developpez.net

[Toutes versions] CDO avec GMail - Macros et VBA Excel

J'ai un problème pour envoyer des messages avec CDO en utilisant mon compte GMail. J'utilise le code suivant : Code : - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub CDO2 ( )

www.developpez.net