Bonjour, j'ai codé dans ma feuill excel un code permettant d'envoyer des mail en CDO. Cependant, je suis sur un serveur EXCHANGE et lorsque j'envoi à un membre du domaine, tout est OK. Enr evanche, j'ai le message suivant lorsque le destinataire n'est pas du domaine :

Le serveur a rejeté une ou plusieurs adresse mail de destinataire. La réponse du serveur était : 550 5.7.1
unable to relay for XXX@XXX.XXX
J'envoi pourtant en mode autentification avec user & mdp mais rien y fait. Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
28
29
'Fonction d'envoi de mail
Dim rep As String
With CreateObject("CDO.Message")
    .From = sFrom
    .To = sTo
    .Subject = sSujet
    .TextBody = sText & vbNewLine & Signature
    If PieceJointe1 <> "" Then
        .AddAttachment PieceJointe1
    End If
    If PieceJointe2 <> "" Then
        .AddAttachment PieceJointe2
    End If
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") Relais
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mdp"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update
    On Error GoTo ErreurCdo
    .Send
    Exit Function 'l'envoi s'est bien passé on sort de la sub
ErreurCdo:
    If Err Then
        rep = MsgBox("Le message n'a pas pu être expédié", vbOKCancel + vbCritical, "Erreur Relais SMTP")
        If rep = vbCancel Then Exit Function
    End If
End With
Avez vous une idée du problème ?