Concernant l'envoi de mails avec CDO à partir d'Excel 2007

Question

Bonjour, j'ai le message (parmi d'autres) suivant :Erreur 2147720978e

Le serveur a rejeté l'adresse de l'expéditeur. La réponse du serveur était: 451 5.7.3 STARTTLS is requied to send mail etc...

Quie faut il ajouter ou modifier pour obtenir le bon fonctionnement?

Mon code est:

Sub CDO_Mail_Small_Text()

    Dim iMsg As Object

    Dim iConf As Object

    Dim strbody As String

    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")

    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1    ' CDO Source Defaults

        Set Flds = iConf.Fields

        With Flds

            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"

            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587

            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"

            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******@live.fr"

            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"

            .Update

        End With

strbody = "Bonjour"

    With iMsg

        Set .Configuration = iConf

        .To = "mon adresse mail"

        .CC = ""

        .BCC = ""

        .From = ******@live.fr"

        .Subject = "Important message"

        .TextBody = strbody

        .Send

    End With

    Set iMsg = Nothing

    Set iConf = Nothing

    Set Flds = Nothing

End Sub

Answer 1

Mes essais n'ont pas abouti, 25  587 et 993 avec 1 sans guillemet  j'ai toujours "Le transport a échoué dans sa connexion au serveur , N° erreur:2147220973. Je pense que je suis en attente d'une validation de mes paramètres pourtant les plus utilisés, j'ai récemment supprimer un compte avec une adresse mail Orange qui n'a plus cours, ce serait sans doute la cause ou la raison de ce pb.

Answer 2

Merci , je vais essayer cela

Answer 3

Les Param de mon compte Live.fr

Answer 4

Bonjour

Avec

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

sans guillemets ?

E via port 25 ?

Answer 5

Bonjour,

Je ne connais pas grand-chose aux serveurs de messagerie, mais il semble qu'il s'agisse d'un problème de configuration. Quels sont les paramètres de configuration de ton serveur SMTP ?

Cordialement.

Daniel