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 :
J'envoi pourtant en mode autentification avec user & mdp mais rien y fait. Voici le code :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
Avez vous une idée du problème ?
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
Partager