J'ai un leger probleme, j'ai (enfin) réussi à envoyer un mail avec CDO mais uniquement vers un mail de mon reseau d'entreprise local. Quand je spécifie un mail exterieur le programme me met une erreur 550 5.7.1 Unable to relay.
Quelqu'un à une solution ?
voici le code :
Private Sub Command4_Click()
'Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Dim objEmail As CDO.Message
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "mail@domaine-local" 'email de mon compte exchange
objEmail.To = "mail@exterieur"
objEmail.Subject = "TEST !!!!"
objEmail.TextBody = "Test avec CDO"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.1" 'IP du serveur exchange local
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub