Mail avec CDO vers email non local

Question

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

mastercatz · Answer

Oops, legere erreur du code =>

Private Sub Command4_Click()

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

wersand · Answer

Bonjour !
Sous Windows 2000 Server en programmation ASP 3 j'utilisais Server.CreateObject("CDONTS.NewMail") pour envoyer des messages avec l'option CdoHigh la syntaxe était : EnvoiMail.importance = CdoHigh

Maintenant sous Windows 2003 Server il faut utiliser Server.CreateObject("CDO.Message") qui utilise cdosys.dll 
Quelle doit etre la syntaxe pour pouvoir utiliser l'option CdoHigh ? car EnvoiMail.importance = CdoHigh ne fonctionne plus ?

Mail avec CDO vers email non local

2 réponses

Discussions similaires