A voir également:
- Fichier SMTPsvg.dll
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
13 réponses
Salut
apparemment, on peut pas trouver cette librairie, mais jette un oeil sur dll-files.com.
C'est un site où on peut trouver des fichiers DLL.
A+
apparemment, on peut pas trouver cette librairie, mais jette un oeil sur dll-files.com.
C'est un site où on peut trouver des fichiers DLL.
A+
Utilisateur anonyme
merci bien pour votre aide
Oui je sais, c'est ASP qui affiche un msg d'erreur parce que une librairie manque...
Tu as essayé avec CDO?
Tu as essayé avec CDO?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
C'est bizarre, si ASP a besoin de cette librairie, pourquoi elle n'est pas là...
J'ai trouvé un site sur ASP peut-être qu'il y a le fichier à télécharger:
http://www.aspin.com/
J'ai trouvé un site sur ASP peut-être qu'il y a le fichier à télécharger:
http://www.aspin.com/
voici script :
<%
msg = 0
ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost=MailServer
'RemotServer
Mailer.ContentType="text/html"
Mailer.FromName = "Webmaster Nautilum"
Mailer.FromAddress= "webmaster@nautilum.com"
Mailer.RemoteHost = "SMTP.nautilum.com"
Mailer.AddRecipient request("Nom"), request("Mail")
Mailer.Organization = "Nautilum"
Mailer.Subject = "Test d'ASPMail"
strBody = "Vous avez des questions, des demandes précises ?" & CHR (10) & CHR(13)
strBody = strBody & "webmaster@nautilum.com" & CHR (10) & CHR(13)
strBody = strBody & " " & CHR (10) & CHR(13)
strBody = strBody & "Cordialement" & CHR (10) & CHR(13)
strBody = strBody & "L'équipe de Nautilum" & CHR (10) & CHR(13)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "Le mail a bien été envoyé"
else
Response.Write "Problème d'envoi<br>"
Response.Write Mailer.Response
end if
msg = 1
End If
%>
<%
msg = 0
ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost=MailServer
'RemotServer
Mailer.ContentType="text/html"
Mailer.FromName = "Webmaster Nautilum"
Mailer.FromAddress= "webmaster@nautilum.com"
Mailer.RemoteHost = "SMTP.nautilum.com"
Mailer.AddRecipient request("Nom"), request("Mail")
Mailer.Organization = "Nautilum"
Mailer.Subject = "Test d'ASPMail"
strBody = "Vous avez des questions, des demandes précises ?" & CHR (10) & CHR(13)
strBody = strBody & "webmaster@nautilum.com" & CHR (10) & CHR(13)
strBody = strBody & " " & CHR (10) & CHR(13)
strBody = strBody & "Cordialement" & CHR (10) & CHR(13)
strBody = strBody & "L'équipe de Nautilum" & CHR (10) & CHR(13)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "Le mail a bien été envoyé"
else
Response.Write "Problème d'envoi<br>"
Response.Write Mailer.Response
end if
msg = 1
End If
%>
Je sais: en fait c'est une erreur de script.
SMTPsvg.Mailer n'est pas pris en charge.
Donc l'erreur c'est le truc en gras :
Donc, si SMTPsvg n'est pas pris en charge, alors tout le code n'est pas pris en charge.
Essaye avec CDO, il n'y aura pas d'erreur.
SMTPsvg.Mailer n'est pas pris en charge.
Donc l'erreur c'est le truc en gras :
<%
msg = 0
ENVOY = Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost=MailServer
'RemotServer
Mailer.ContentType="text/html"
Mailer.FromName = "Webmaster Nautilum"
Mailer.FromAddress= "webmaster@nautilum.com"
Mailer.RemoteHost = "SMTP.nautilum.com"
Mailer.AddRecipient request("Nom"), request("Mail")
Mailer.Organization = "Nautilum"
Mailer.Subject = "Test d'ASPMail"
strBody = "Vous avez des questions, des demandes précises ?" & CHR (10) & CHR(13)
strBody = strBody & "webmaster@nautilum.com" & CHR (10) & CHR(13)
strBody = strBody & " " & CHR (10) & CHR(13)
strBody = strBody & "Cordialement" & CHR (10) & CHR(13)
strBody = strBody & "L'équipe de Nautilum" & CHR (10) & CHR(13)
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "Le mail a bien été envoyé"
else
Response.Write "Problème d'envoi<br>"
Response.Write Mailer.Response
end if
msg = 1
End If
%>
Donc, si SMTPsvg n'est pas pris en charge, alors tout le code n'est pas pris en charge.
Essaye avec CDO, il n'y aura pas d'erreur.
Je connais mal le ASP, mais ça ressemble au VBS:
C'est pour utiliser CDO.
Dim objMail ' Objet Courriel
Dim oIE ' Objet Navigateur
Dim sReponse ' Chaine de caractères
'Dim Message ' Chaine de caractères
Dim envoyeur
Dim destinataire
Dim sujetmail
envoyeur = InputBox("Entrez votre adresse e-mail", "Mailer")
destinataire = InputBox("Entrez le destinataire du mail", "Mailer")
sujetmail = InputBox("Entrez le sujet", "Mailer")
sReponse = InputBox("Entrez le texte du mail", "Mailer")
'Création d'une instance du facteur (Outlook Express)
Set objMail = CreateObject("CDO.Message")
With objMail
.From = envoyeur
.To = destinataire
.Subject = sujetmail
.TextBody = sReponse
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.cegetel.net"
.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Update
.Send
End With
If objMail.Send = False Then
msgbox"Mail envoyé!"
Else
msgbox"Mail non envoyé!"
End If
Set objMail = nothing
C'est pour utiliser CDO.
