Pb envoi de mail CDONTS ou CDO via SMTP IIS6

Question

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&#233; 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&#233; et
param&#233;tr&#233; par d&#233;faut, or je ne recois aucun mail et il n'y a rien dans
les r&#233;pertoires : C:\Inetpub\mailroot\XXX



le domaine de mon site qui utilise cette page ASP est g&#233;r&#233; 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&#233; car le domaine ne pointe pas sur cette machine pour les mails POP.



Merci pour vos lumi&#232;res ! 



Frank

actu5394 · Answer

Bonjour,
D&#233;j&#224;, 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&#233;pertoire "Badmail" ??

actu5394 · Answer

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

cs_dakine · Answer

Cdonts c'est l'ancienne version, CDOSys ca
le remplace sous windows2003 serveur. Dans le doute j'ai aussi install&#233;
Cdonts mais pas de reception de mail.

Rien non plus dans badmail.



sinon concernant la 2eme r&#233;ponse, "Nom de domaine complet" a bien le nom de la machine mais pour "H&#244;te actif" c'est vide.

Que faut il mettre ici ?



J'ai un 2eme serveur d&#233;di&#233; sous windows 2000 serveur qui tourne bien avec l'envoi de mail et il n'y a rien dans "H&#244;te actif"



Merci

Frank

cs_AshenShugar · Answer

Faut pas configurer un SMTP avant ?! J'ai utilis&#233; CDO r&#233;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&#233;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...

actu5394 · Answer

En ce qui concerne Win2003 Sserver, je ne peux rien te dire car je ne l' utilise pas.


Par contre, je suis d&#233;sol&#233; mais je viens, &#224; l'instant, de vider le champ "H&#244;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 &#233;tait destin&#233; &#224; xxx mais que l'envoi n'a pas pu se faire.


Dans ton cas, je serai tent&#233; de dire qu'il faudrait une connexion internet sur ton serveur et, dans le champ "H&#244;te actif", le nom de ton serveur de messagerie sortant.

kuise · Answer

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

:)

Pb envoi de mail CDONTS ou CDO via SMTP IIS6

6 réponses

Votre réponse

Discussions similaires