Pb envoi de mail CDONTS ou CDO via SMTP IIS6

Salut,

j'ai lu tous les messages concernant l'envoi de mail Cdonts ou CDO via SMTP IIS6 (windows 2003 Serveur) mais je ne trouve pas la solution.

j'ai une page ASP qui envoi un mail par Cdonts ou CDO (j'ai aussi installé Cdonts puis valider dans la base de registre) :
<%
Dim objMail
set objMail = Server.CreateObject("CDO.Message")
objMail.From = "test@mail.com"
objMail.To = "test@mail.com"
objMail.Subject = "Test envoi email ASP via Win 2003"
objMail.TextBody = "texte mail"
objMail.Send
set objMail = nothing
%>
Mon smtp dans IIS6 est lancé et paramétré par défaut, or je ne recois aucun mail et il n'y a rien dans les répertoires : C:\Inetpub\mailroot\XXX

le domaine de mon site qui utilise cette page ASP est géré par OVH :
- La partie Web pointe sur le serveur Windows 2003
- La partie Mail (MX) pointe sur un serveur Linux pour la reception des mails

Mon serveur DNS n'est donc pas configuré car le domaine ne pointe pas sur cette machine pour les mails POP.

Merci pour vos lumières !

Frank

Bonjour,
Déjà, moi, je ne connais qu'une syntaxe :
Set objMail = Server.CreateObject("CDONTS.NewMail"),
ensuite j'aimerai savoir si tes mails ne partent pas dans le répertoire "Badmail" ??

Dans Services Internet (IIS) / Serveur virtuel SMTP par défaut / Propriétes de Serveur virtuel SMTP par défaut / onglet Remise / Options avancées /
les champs "Nom de domaine complet" et "Hôte actif" sont-ils correctement remplis ?

Cdonts c'est l'ancienne version, CDOSys ca le remplace sous windows2003 serveur. Dans le doute j'ai aussi installé Cdonts mais pas de reception de mail.
Rien non plus dans badmail.

sinon concernant la 2eme réponse, "Nom de domaine complet" a bien le nom de la machine mais pour "Hôte actif" c'est vide.
Que faut il mettre ici ?

J'ai un 2eme serveur dédié sous windows 2000 serveur qui tourne bien avec l'envoi de mail et il n'y a rien dans "Hôte actif"

Merci
Frank

Faut pas configurer un SMTP avant ?! J'ai utilisé CDO récemment, voila mon code qui fonctionne nickel :
'Configuration du CDO
Dim oConfiguration
Set oConfiguration = Server.CreateObject("CDO.Configuration")
oConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Le Serveur SMTP"
oConfiguration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConfiguration.Fields.Update
'Création du Mail et envoi
Set myMailItem = Server.CreateObject("CDO.message")
myMailItem.Configuration = oConfiguration
myMailItem.From    = email_from 
myMailItem.To    = email_To
myMailItem.Subject = sujet
myMailItem.HTMLBody = message
myMailItem.MIMEFormatted = false
myMailItem.Send
Set myMailItem = Nothing

@+
Le hardware, c'est sur quoi l'on tape lorsque le software merde...

En ce qui concerne Win2003 Sserver, je ne peux rien te dire car je ne l' utilise pas.

Par contre, je suis désolé mais je viens, à l'instant, de vider le champ "Hôte actif" de mon serveur de test Windows 2000 Server et l'envoi des mails ne se fait plus. Par contre, le repertoire "Badmail" se remplit de trois fichiers, .BAD  .BDP  .BDR, qui te disent que le mail était destiné à xxx mais que l'envoi n'a pas pu se faire.

Dans ton cas, je serai tenté de dire qu'il faudrait une connexion internet sur ton serveur et, dans le champ "Hôte actif", le nom de ton serveur de messagerie sortant. 

Pour continuer le message d'AshenShugar Envoi via SMTP IIS6 et pièce jointe Dim iMsg Dim iConf Dim Flds Const cdoSendUsingPickup = 2 Set iMsg = CreateObject("CDO.Message") Set iConf = iMsg.Configuration With iConf.Fields .item( "http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Mon serveur SMTP" .Update End With With iMsg .From = "Expediteur" .To = "Destinataire" .Subject = "Sujet" .HtmlBody = "MonMail" 'Possibilité d'insérer une pièce attachée NomFichier="" & Request.form("fichier") If NomFichier <> "" Then Position = InstrRev(NomFichier, "\") NomFichierCourt = right(NomFichier, (Len(NomFichier) - Position)) strFile="c:\inetpub\wwwroot\monsite\pieces\" & NomFichierCourt strFileName=NomFichierCourt iMsg.AttachFile strFile,strFileName End If .Send End With :)