bonjour,
Je travaille sur un Intranet et je souhaite envoyer des emails aux différents utilisateurs.
Pour faire, j'utilise CDONTS, mais le problème et que les messages semble sortir sur Internet pour mieux rentrer. Ce qui pose le problème pour les boîtes aux lettres interne (Exchange). J'aimerais les envoyer directement dans Exchange sur les boîtes locales.
Est-ce que le simple fait de mettre le login NT de l'utilisateur dans le To (ex : N.Toto) pourrait fonctionner.
Voici ma fonction
function Envoi_Mail(email)
Dim objCDO
set objCDO = Server.CreateObject("CDONTS.NewMail")
dim txtSubject
' Texte du message
txtSubject = vbcrlf & " Test fonctionnement serveur" & vbcrlf & vbcrlf
' Destinataire
objCDO.To=email
objCDO.From="contact@masociete.fr"
objCDO.Subject="Test fonctionnement serveur"
objCDO.Body=txtSubject
objCDO.Send
set objCDO=nothing
end function
Sachant que je connais l'adresse IP de mon serveur Exchange.
merci de votre aide.